Help for this page

Select Code to Download

Select or download this
```
printf "Got %s!\n", shift while @ARGV;
```

Select or download this

use subs qw(printfor);
printfor @ARGV;
...
    my $f = shift;
    printf "Got %s!\n", shift while @_;
}