Win32::Service::GetServices("", \%tmp);
...
            if (Win32::Service::GetStatus("",$_,\%{$_})){