#!/usr/bin/perl
...
printf "There were %d files mentioned on the command line:\n", scalar @ARGV;
print join "\n", @ARGV, '';
...