Win32::Service::GetStatus($hostname, $servicename, \%status);
print MYFILE " ServiceStatus: ", $hostname, $servicename, $status{CurrentState}, "\n"; 

##</code><code>##

 if ($status{CurrentState} eq 4 )
       {print MYFILE " ServiceStatus: ", $hostname, " ", $servicename, " ", "is running\n";}
       else {print MYFILE " ServiceStatus: ", $hostname, " ", $servicename, " ", "is not running\n";}