# @ARGV may have more than one file in it

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