Help for this page
program.pl file1 file2 file3
my $file = shift(@ARGV); # for one file
my @files = @ARGV; # for more than one file