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

##</code><code>##

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

##</code><code>##

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