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