Win32::Service::GetStatus($hostname, 'Apache2.2', $stat);
print Dumper $stat;

$VAR1 = {
          'ControlsAccepted' => 1,
          'CurrentState' => 4,
          'ServiceType' => 16,
          'Win32ExitCode' => 0,
          'CheckPoint' => 0,
          'ServiceSpecificExitCode' => 0,
          'WaitHint' => 0
        };