while( <> ) { print; print "========================== Now at $ARGV ==========================\n" if eof; }