Select Code to Download

#perl.exe -w

...
print "Waiting for Children...\n";
$pm->wait_all_children;
print "Everybody is out of the pool!\n";

package MyTest;

...
use Win32::OLE::Variant;

1;