You could also use File::ReadBackwards to read in just the last line and test for the newline characters.

use File::ReadBackwards;
$bw = File::ReadBackwards->new('file') or die "can't read 'file' $!";
$lastline = $bw->readline;
[download]

bW