perl 5.003_03: hints/next_4.sh