Select Code to Download

use File::ReadBackwards;
tie *BW, 'File::ReadBackwards', 'log_file' or
...
while( <BW> ) {
    print ;
}

use Tie::File;
tie my @array, 'Tie::File', 'log_file' or 
...
    $_ = -$_;
    print $array[$_];
}