#!/usr/bin/perl -w
use strict;

my %self;

my @command = (
    'perl', 
    'my test.pl', 
    'one arg',
    '"two arg"'
);

{
my $fh = windows_fork( \%self, @command );
print while <$fh>;
}
print "out of scope\n";
exit;

sub windows_fork {
    my ( $self, @args ) = @_;
    require IPC::Open2;
    my ( $rdrfh, $wtrfh );
    # Deal with windows quotes
    my @command = map { s/"/\\"/g; qq["$_"] }  @args;
    my $pid = IPC::Open2::open2($rdrfh, $wtrfh, @command );
    binmode $rdrfh, ':crlf';

    tie *handle, 'call_waitpid', $rdrfh, $pid;
    return \*handle
}
package call_waitpid;
use strict;

sub TIEHANDLE {
    my ( $class, $fh, $pid ) = @_;
    bless {
        handle  => $fh,
        pid     => $pid,
    }, $class;
}

sub READLINE {
    my ( $self ) = @_;
    my $fh = $self->{handle};
    return <$fh>;
}


sub DESTROY {
    my ( $self ) = @_;
    close $self->{handle};
    waitpid $self->{pid}, 0;
}