use Win32::Process;
my ($perl_path) = $^X =~ /(.*)\\perlse\.dll$/i;
$perl_path =~ s/\\/\//g;

Win32::Process::Create($Obj,$perl_path . "/perl.exe","perl poller.pl",0,DETACHED_PROCESS,"/scripts") or die ErrorReport();