open(FH, "<", "a.txt") or die $!;
    my $line1 = <FH>;
    my $line2 = <FH>;
    print "eof!\n" if eof FH;
    my $line3 = <FH>;
    close FH;
__END__
eof!