$bw = File::ReadBackwards->new( 'log_file' );

    while( defined( $log_line = $bw->readline ) ) {
            print $log_line;
    }