Select Code to Download

my $recsize = 56;

...
seek(FILE, $pos, 0) or die "seek: $!";
read(FILE, my $out, $recsize) == $recsize or die "read: $!";
...