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";
}