my ($hostname, $servicename, $entry);
      my (%status, @array);
      %status =   (
            1 => 'Stopped',
            2 => 'START_PENDING',
            3 => 'STOP_PENDING', 
            4 => 'Started',
            5 => 'CONTINUE_PENDING',
            6 => 'PAUSE_PENDING',
            7 => 'PAUSED', 
            8 => 'ERROR'
            );

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