my $st = stat($fh) or die $!;
my $len = $st->[7];

my $data;
read $fh, $data, $len;
my @lines = split /\n/, $data;