Win32::Service::GetStatus( $server,  $service_name, \%ServHash )

if ( $ServHash{CurrentState} != 4 ) { 
It_s_not_runing_do_something() 
} ;