open RAM, '>:raw', \$ram; 
seek RAM, 10, 0; 
print RAM ' '; 
print length $ram;;
Use of uninitialized value in length at (eval 3) line 1.
0