#!/usr/bin/perl
use File::ReadBackwards;
#usage tailfilebackwards filename numlines 
my $filename = shift or die "Usage: $0 file numlines\n";
my $numlines  = shift;

$bw = File::ReadBackwards->new($filename) or
die "can't read $filename $!" ;

$count=0;
while(defined($line = $bw->readline)){
push @lines,$line ;
$count++;
if ($count == $numlines){last}
}
@lines= reverse @lines;
print "@lines\n";
exit;