Do you want to use a perl variable as if it were a file? Previous versions of perl had IO::Stringy and IO::Scalar for that. Perl 5.8 with PerlIO has it natively. Just use a reference to the scalar in the filename slot of open.

my $foo = '';
open FILEHANDLE, '+>', \$foo or die $!;
print FILEHANDLE "Contents of File";
seek(FILEHANDLE,0,0);
my @contents = <FILEHANDLE>;
close FILEHANDLE or die $!;
print 'From $foo: ', $foo, $/;
print 'From file read: ', @contents, $/;
[download]

After Compline,
Zaxo

You could use IO::Scalar which seems to be part of IO::Stringy.

Below code is from the documentation.

    use IO::Scalar;
    $data = "My message:\n";
     
    ### Open a handle on a string, and append to it:
    $SH = new IO::Scalar \$data;
    print $SH "Hello";    
    print $SH ", world!\nBye now!\n";
    print "The string is now: ", $data, "\n";

    ### Open a handle on a string, read it line-by-line, then close it
+:
    $SH = new IO::Scalar \$data;
    while (<$SH>) {
    print "Got line: $_";
    }
    close $SH;
[download]

Just a tongue-tied, twisted, earth-bound misfit. -- Pink Floyd

perl -le 'print+unpack("N",pack("B32","00000000000000000000001000101001"))'