Select Code to Download

my $command = qq{perl -MCPAN -e 'install q/Bundle::Snapshot_2007_07_23
+_00/'};
system('script', '-c', $command, '/cygdrive/c/cpan.log');