die "Usage: mytest filename [filename [...]]\n" unless @ARGV;
print while <>;

##</code><code>##

die "Usage: mytest filename [filename [...]]\n" unless @ARGV;

while( my $file = shift ) {
  open my $ifh, '<', $file or die $!;
  print "$file($.): $_" while <$ifh>;
}