#!/usr/bin/perl use strict; use warnings; use File::ReadBackwards; my $file_name = shift @ARGV; my $bw = File::ReadBackwards->new($file_name); until ( $bw->eof ) { print $bw->readline; }