open RAM, '>', \$ram; 
binmode RAM, ':raw' or warn $!; 
seek RAM, 10, 0; print RAM ' '; 
print length $ram;;
12