# Generate some test data
perl -e'for(0..9){@a=(A..Z,a..z," ",0..9);print$a[rand($#a+1)]for 1..80;print$/}'>testdata

# Grab the last 243 bytes == last 3 lines (80 chrs + \n)
perl -le 'open F,"testdata";$a=243;seek F,-$a,2;sysread F,$data,$a;print$data;'

gaNLTPyYjzh o0SFnuiNw18l9rpJvHXOcctK2gpLIZzODQou qal15OgfCEQsVGaQ3Ojmb5h06pYM3x7
M0GgGwIdqqVmz1D5cWrOwC 0bzvp7bChgOtlzf1TE2 yh77hCIYhricePIH0VxiKHdv3Yea3zkN4aKZ6
sPBR0bryMtGTcGUk87B7UQmEpficHPy0rcjuwYTFyIbweuOcnxtyMpIm2BMcWJa30LVpFQ5nLnJesQ4a

# check it is true
tail -3 testdata
gaNLTPyYjzh o0SFnuiNw18l9rpJvHXOcctK2gpLIZzODQou qal15OgfCEQsVGaQ3Ojmb5h06pYM3x7
M0GgGwIdqqVmz1D5cWrOwC 0bzvp7bChgOtlzf1TE2 yh77hCIYhricePIH0VxiKHdv3Yea3zkN4aKZ6
sPBR0bryMtGTcGUk87B7UQmEpficHPy0rcjuwYTFyIbweuOcnxtyMpIm2BMcWJa30LVpFQ5nLnJesQ4a