use IO::Scalar;
    my $data = "";
    my $fh = IO::Scalar->new( \$data );

##</code><code>##

    use IO::String;
    my $data = "";
    my $fh = IO::String->new( $data );