use Win32::Process;sub killprocess {my ($numb,$pid) = @_;if (Win32::Process::KillProcess($pid,$numb)) {return true;} else {return false;}}
if (killprocess("deamon.exe","4052")) {print "chau\n\a";}