open (F,"the file");
seek(F,-81,2);
while(<F>) { $l=$_}
warn if $.<1;   # Make sure we read more than one line