New to Perl, Help me quote this propperly. It just isn't working no matter what I do.

[cluettr]

$cmd = "grep \'sysObjectID.0\s+:{1}\s+CISCO-PRODUCTS-MIB!\' /database/configs/$kind/$device/system";
($stdout,$stderr) = $ssh->cmd("$cmd");