Select Code to Download

sub new
{
  my $class = shift;
...
  use Data::Dumper;
  print Dumper($updatecoll, $downloader, $downloadResult, $installer, 
+$installResult);
}

use Win32::WindowsUpdate;

my $wu = Win32::WindowsUpdate->new;
...
  '09569688-db5d-422b-965d-aac88486fae4',
  '60b990a0-6efa-47be-8f5a-7df2c402583e',
);

H:\Projects\Win32-WindowsUpdate\lib>perl test.pl
Adding 09569688-db5d-422b-965d-aac88486fae4 February 2007 CardSpace Up
+date for Windows XP (KB925720) to collection
Adding 60b990a0-6efa-47be-8f5a-7df2c402583e Windows XP Service Pack 3 
+(KB936929) to collection
...
                 'ForceQuiet' => 1
               }, 'Win32::OLE' );
$VAR5 = undef;