use File::ReadBackwards ;
    # Object interface
    $bw = File::ReadBackwards->new( 'log_file' ) or
                        die "can't read 'log_file' $!" ;
    while( defined( $log_line = $bw->readline ) ) {
            print $log_line ;
            last; # Only print the last line
    }