while (<$fh>) {
    last if eof;
    print;
}