while(<>) { print; } my $line = <>; print "END\n";