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;
[download]