Windows 守护进程

*use Win32::Process::Info;
use Sys::Hostname;
use HTTP::Date qw(time2iso str2time time2iso time2isoz);
use Net::SMTP;
sub send_mail{
if (@_ != 2){print "请输入2个参数\n";exit 1};
($m,$n) = @_; #将参数赋值给变量
my $to_address  = $m;
my $CurrTime = time2iso(time());
my $to_address  = $m;
my $mail_user   = 'zhaoyangjian@zjcap.cn';
my $mail_pwd    = 'zj806355';
my $mail_server = 'smtp.exmail.qq.com';
my $from    = "From: $mail_user\n";
my $subject = "Subject: zjcap info\n";
my $info = "$CurrTime--$n";
my $message = <<CONTENT;
$info
CONTENT
my $smtp = Net::SMTP->new($mail_server);
$smtp->auth($mail_user, $mail_pwd) || die "Auth Error! $!";
$smtp->mail($mail_user);
$smtp->to($to_address);
$smtp->data();             # begin the data
$smtp->datasend($from);    # set user
$smtp->datasend($subject); # set subject
$smtp->datasend("\n\n");
$smtp->datasend("$message\n"); # set content
$smtp->dataend();
$smtp->quit();
};
my $pi=Win32::Process::Info->new({assert_debug_priv => 1});
my @processinfo = $pi->GetProcInfo();
foreach my $process (@processinfo){
print join(':',$process->{'Name'},$process->{'ProcessId'},
$process->{'Owner'}),"\n";
$var=$process->{'Name'};
##将进程名放入数组
push @arr1,$var;
}
print "----------------------\n";

$proc='360Safe.exe';
$task='C:\Program Files (x86)\360\360Safe\360Safe.exe';
#foreach (@arr1){if ($_ =~ /360/){print "$_\n"}};
if (grep m/$proc/,@arr1 ){print "$proc is running\n"}

else{ send_mail('zhaoyangjian@zjcap.cn',"$proc is lost"),print "$proc is not running\n",
system("$task");
};*