foreach my $pid (keys %proclst) { Win32::Process::KillProcess($proclst{$pid}, 255); &Update_Log("Service Stopping - Stopping $proclst{$pid}"); } undef %proclst;