use File::ReadBackwards; my $file = "/path/to/myfile.txt"; my $bw = File::ReadBackwards->new($file) or die "Cannot read $file - $!"; my $last_line = $bw->readline; $bw->close;