use strict;
use warnings;

my $ram;

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

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

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

warn `$^X -v`;
__END__
C:\dev\loose>perl5.8.0 open.ram.raw.bk.pl
11 at open.ram.raw.bk.pl line 9.
11 at open.ram.raw.bk.pl line 16.
Use of uninitialized value in length at open.ram.raw.bk.pl line 22.
0 at open.ram.raw.bk.pl line 22.

This is perl, v5.8.0 built for MSWin32-x86-multi-thread

Copyright 1987-2002, Larry Wall

Perl may be copied only under the terms of either the Artistic License or the
GNU General Public License, which may be found in the Perl 5 source kit.

Complete documentation for Perl, including FAQ lists, should be found on
this system using `man perl' or `perldoc perl'.  If you have access to the
Internet, point your browser at http://www.perl.com/, the Perl Home Page.


C:\dev\loose>perl5.8.4 open.ram.raw.bk.pl
11 at open.ram.raw.bk.pl line 9.
Use of uninitialized value in open at open.ram.raw.bk.pl line 12.
11 at open.ram.raw.bk.pl line 16.
Use of uninitialized value in length at open.ram.raw.bk.pl line 22.
0 at open.ram.raw.bk.pl line 22.

This is perl, v5.8.4 built for MSWin32-x86-multi-thread
(with 3 registered patches, see perl -V for more detail)

Copyright 1987-2004, Larry Wall

Binary build 810 based on sources provided by
   ActiveState Corp. http://www.ActiveState.com
ActiveState is a division of Sophos.
Built Jun 17 2004 21:47:33

Perl may be copied only under the terms of either the Artistic License or the
GNU General Public License, which may be found in the Perl 5 source kit.

Complete documentation for Perl, including FAQ lists, should be found on
this system using `man perl' or `perldoc perl'.  If you have access to the
Internet, point your browser at http://www.perl.com/, the Perl Home Page.


C:\dev\loose>perl5.8.6d open.ram.raw.bk.pl
11 at open.ram.raw.bk.pl line 9.
Use of uninitialized value in open at open.ram.raw.bk.pl line 12.
11 at open.ram.raw.bk.pl line 16.
Use of uninitialized value in length at open.ram.raw.bk.pl line 22.
0 at open.ram.raw.bk.pl line 22.

This is perl, v5.8.6 built for MSWin32-x86-multi-thread

Copyright 1987-2004, Larry Wall

Perl may be copied only under the terms of either the Artistic License or the
GNU General Public License, which may be found in the Perl 5 source kit.

Complete documentation for Perl, including FAQ lists, should be found on
this system using `man perl' or `perldoc perl'.  If you have access to the
Internet, point your browser at http://www.perl.org/, the Perl Home Page.


C:\dev\loose>perl5.8.7 open.ram.raw.bk.pl
11 at open.ram.raw.bk.pl line 9.
Use of uninitialized value in open at open.ram.raw.bk.pl line 12.
11 at open.ram.raw.bk.pl line 16.
Use of uninitialized value in length at open.ram.raw.bk.pl line 22.
0 at open.ram.raw.bk.pl line 22.

This is perl, v5.8.7 built for MSWin32-x86-multi-thread

Copyright 1987-2005, Larry Wall

Perl may be copied only under the terms of either the Artistic License or the
GNU General Public License, which may be found in the Perl 5 source kit.

Complete documentation for Perl, including FAQ lists, should be found on
this system using `man perl' or `perldoc perl'.  If you have access to the
Internet, point your browser at http://www.perl.org/, the Perl Home Page.


C:\dev\loose>