my $module = 'My::Module';

system(cpan => $module)
   and die("system cpan failed: $!/$?\n");