sub last_line {
  my ($fref, $r_len) = @_;
  my ($last, $chomped) = ("", 0);
  $r_len = -$r_len if $r_len > 0;
  $r_len ||= -80;

  seek $fref, $r_len, 2;
  {
    my ($buffer,$pos);
    read $fref, $buffer, $r_len;
    $last = $buffer . $last;
    if (($pos = rindex($last,"\n",length($last)-2)) != -1) {
      return substr($last,$pos);
    }
    seek $fref, $r_len * 2, 1;
    redo;
  }
}