#!C:\Perl64\bin\perl.exe
use Win32::Service;
 
 #set up a hash of known service states
my %statcodeHash = (
     '1' => 'stopped.',
     '2' => 'start pending.',
     '3' => 'stop pending.',
     '4' => 'running.',
     '5' => 'continue pending.',
     '6' => 'pause pending.',
     '7' => 'paused.'
);
        
my %serviceHash;

 #go get 'em...
Win32::Service::GetServices("", \%serviceHash);

foreach $key(keys %serviceHash){

    my %statusHash;
    Win32::Service::GetStatus("", $serviceHash{$key}, \%statusHash);
	if ($statusHash{"CurrentState"} =~ /[1-7]/){
	    print $serviceHash{"$key"} . " is currently " . $statcodeHash{$statusHash{"CurrentState"}} . "\n";
     
	 if (( $serviceHash{"$key"} =~ /SensrSvc/ ) && ($statcodeHash{$statusHash{"CurrentState"}} =~/stopped/ )) {
	   # Win32::Service::StartService("", $serviceHash{$key});
	 system `net start "SensrSvc" `;
     print "$serviceHash{$key} !!! \n" ;
	    }
	 }
	    
}