use Fcntl qw(SEEK_SET);
seek $fh, 134512640, SEEK_SET or die "could not seek in mem: $!";