use CPAN;
use CPAN::Shell;

for(qw/Tie::File Foo Bar/)
{
  CPAN::Shell->install( $_ );
}