$val = Win32::OLE::Enum->All($col) or $ok = 0; #### eval { local $SIG{ALRM} = sub { warn "ALARM FOR GET EXEC QUERY: \"$query\" L: \"" . __LINE__ . "\" F: \"" . __FILE__ . "\"\n" }; # NB: \n required alarm 5; $val = Win32::OLE::Enum->All($col) or $ok = 0; alarm 0; }; if($@) { $ret = $@; print "ERR: \"$ret\"\n"; $err = 1; $ret = "timeout while QUERY: \"$query\" wmi on machine $host"; return($err, $ret); }