for $_ (<FILEHANDLE>) {
    print $_;
    }