use Win32::Process;
my $ProcessObj;
while(1) {
    Win32::Process::Create(
        $ProcessObj, 
        $appname, 
        $cmdline,
        $iflags,
        $cflags,
        $curdir) or die;
    $ProcessObj->Wait(INFINITE);
}