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