Help for this page
Win32::Service::GetStatus("", "$key", \%statusHash);
Win32::Service::GetStatus("", $serviceHash{$key}, \%statusHash);