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