#!perl -wl
open FOO, qq[| start "$^X" -lne ] . q["print qq['$_' OK]"];
my $stdout = select FOO; $| = 1; select $stdout;
print FOO for qw(one two three);
sleep 10;
print "Finished";