Select Code to Download

#!/usr/bin/perl -w
use strict;
...
print "output:\n";
print while $_ = <r>;
print "done\n";

Pid = 316925
output:
...
316925 [2word quoted and "backslashed" word]
316925 done
done

#!/usr/bin/perl -w
use strict;
...
    close $self->{handle};
    waitpid $self->{pid}, 0;
}

  syntax error at fork.pl line 81, near "<$self->{handle"

my $fh = windows_fork( \%self, 'perl', 'my test.pl', 'first stuff');
my $fg = windows_fork( \%self, 'perl', 'my test.pl', 'other stuff');
print while <$fh>;