windows 守护进程

ppm install Win32::Process::List;use Win32::Process::List;my $P=Win32::Process::List->new();my %list = $P->GetProcesses();    # returns the hashes with PID and process nameforeach my $key ( keys %list ) {# $list{$key} is now the process name and $key is the PIDprint sprintf("%30s  PID %15s", $list{$key}, $key)."\n";};