Select Code to Download

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

while     ( <> ) { print "$ARGV($.): $_" }
continue         { close ARGV  if eof    }