for my $fname (@ARGV) {
    open(IN, $fname);
    print while <IN>;
    close IN;
}

##</code><code>##

print while <>;