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 };