use File::Temp 'tempfile';
...
my ($fh, $filename) = tempfile();
my  $bw = File::ReadBackwards->new($filename)
    or die "Cannot read '$filename' backwards";

while (my $log_line = $bw->readline)
{
    ...
}

##</code><code>##

my $filename = 'data.txt';

open(my $bw, '<', $filename)
    or die "Cannot open file '$filename' for reading";

tie *$bw, 'File::ReadBackwards', $filename
    or die "Cannot read '$filename' backwards";

while (my $log_line = <$bw>)
{
    ...
}