use strict;
use warnings;
use Win32::OLE;
Win32::OLE->Option(Warn => 3);

my $pid = fork;
if($pid == ){
  sleep 5;
  exit;
}
warn "Waiting on $pid";
waitpid($pid, 0);