c:\test>p1
Perl>
open RAM, '+<', \$ram;
seek RAM, 1e9, 0;
print RAM 'X';
print length $ram;;
1000000002
Perl>