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