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