$bytes = 100000;
open (FILE, 'somefile.data');
seek (FILE, -$bytes, 2);
while (<FILE>) {
   print $_;
}
close FILE;