Select Code to Download

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>;
}