sub tempfh {
        my $data = shift;
        my $fh;
        eval {
                open $fh, "<", \$data or die $!;
        1 } or do {
                require File::Temp;
                $fh = File::Temp::tempfile();
                print $fh $data;
                seek $fh, 0, 0 or die "seek: $!";
        };
        return $fh;
}