my $recsize = 56;

open(FILE, $file) or die "open: $!";
my $size = -s FILE;
my $pos = int($size / $recsize)*$recsize;
seek(FILE, $pos, 0) or die "seek: $!";
read(FILE, my $out, $recsize) == $recsize or die "read: $!";
...