use strict;
use warnings;

##</code><code>##

while (<>) {
    # the current line is in $_, 
    # the current filename in $ARGV
}