Help for this page
die "Usage: mytest filename [filename [...]]\n" unless @ARGV; print while <>;
die "Usage: mytest filename [filename [...]]\n" unless @ARGV; ... open my $ifh, '<', $file or die $!; print "$file($.): $_" while <$ifh>; }