open RAM, '>', \$ram; 
seek RAM, 10, 0; 
print RAM ' '; 
print length $ram;;
12