Select Code to Download

...
Win32::Service::GetStatus("", $svc, \%statusHash);
...
else {
    print "Error ... $^E\n";
}