program.pl file1 file2 file3 

##</code><code>##

my $file = shift(@ARGV); # for one file

##</code><code>##

my @files = @ARGV;       # for more than one file