use Win32::Service;
use Win32;
...
if (! Win32::Service::GetStatus($host, $serviceName, \%status)){
   die "Cannot get $serviceName status : $!\nWin Error:" . Win32::GetLastError() . "\n";
}