use strict; use warnings;

sub GetLogHeader
{
    open(TEMPLOG, "<&LOG");
    while (my $row = <TEMPLOG>)
    {
        print "$row\n"; last;
    }
    close(TEMPLOG);
}

my $abc;
open(LOG, "c:\\log.log") || die;

$abc = <LOG>;
my $header = GetLogHeader(\*LOG);
$abc = <LOG>;
$abc = <LOG>;