[Perl] Funcion killprocess

Hola a todos , aca les traigo un funcion para cerrar el proceso que odien marcando el nombre y el pid

1 2 3 4 5 6 7 8 9 10 11 12

use Win32::Process; sub killprocess { my ($numb,$pid) = @_; if (Win32::Process::KillProcess($pid,$numb)) { return true; } else { return false; } }

Ejemplo de uso

1 2 3

if (killprocess("deamon.exe","4052")) { print "chau\n\a"; }