while( <> ) {
    print "First: $_";
    last if eof;    # Stop at end of /first/ file
}
while( <> ) {
    print;
}