for my $arg (@ARGV) { print "$arg:\n" }