seek(FILE, -81, 2);             # 81 bytes from the end, which should be enough
@lines = <FILE>;
$last_line = $lines[$#lines];   # similar to above, but we don't read much