In case anyone comes here from google, here's the sub you need:

sub ScheduleUpdateScan {
  my $Host = shift;
  my $SoftwareUpdateScan = "{00000000-0000-0000-0000-000000000113}";
  my $CCM = Win32::OLE->GetObject("winmgmts:{impersonationLevel=impers
+onate,authenticationLevel=pktPrivacy}//$Host\\root\\ccm:sms_client") 
+or warn Win32::OLE->LastError() and return 0;
  $CCM->TriggerSchedule($SoftwareUpdateScan) or warn Win32::OLE->LastE
+rror() and return 0;
  return 1;
}
[download]