监控windows QQ进程

#!perl
use warnings;
use strict;
use Win32::Process;


my @abc=`tasklist`;


print @abc;
while (1) {
if (grep /QQ.exe/,@abc){
     print 'QQ.exe';
} else{
    &qqprocess;
}
sleep 10;
}




sub qqprocess{
       my $result = Win32::Process::Create( my $ProcessOBJ,
                    'C:\Program Files (x86)\Tencent\QQ\QQProtect\Bin\QQProtect.exe',
                     "",
                     0,
                     NORMAL_PRIORITY_CLASS,
                     ".");
};