Or using a while loop ;-)

use strict;

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