Here is a snippet of what I use to start another script that sit's in a while(1) loop polling the serial port.

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();
[download]

-Nitrox