use strict;

open(FILE, $ARGV[0]) or die;
my($i,$char);
for ($i=-2;;$i--) {
    seek(FILE,$i,2) or exit;
    read(FILE,$char,1);
    $char eq "\n" and last;
}
while (<FILE>) {
    print;
}
close FILE;