if (my $oWMIService = Win32::OLE->GetObject("winmgmts:\\\\$computer\\root\\CIMV2") or warn "Unable to open $computer\n" && next OUTER){ .. do stuff ..}

if(my $colItems = $oWMIService->ExecQuery ( "Select * from Win32_Service"))
{..do stuff..}