ho risolto usando il modulo

File::Readbackwards;

in questo modo precisamente:

# Apriamo il file di log leggendolo dal basso verso l'alto
$bw = File::ReadBackwards->new( $ARGV[0] ) or die "can't read 'log_file' $!" ;

#while( defined( $log_line = $bw->readline ) ) {
# print $log_line ;
# }
in questo modo stampa le righe del file dall'ultima alla prima.
grazie