#!/usr/bin/perl

use CPAN;

if ($ENV{'USER'} ne "root") {
	print  "\aMust be run as root!\n";
	exit;
}

# install my favorite programs if necessary:
for $mod (qw(IO::Socket MIME::Base64 URI Parallel::ForkManager HTTP::Request::Common LWP::UserAgent LWP::Simple XML::Parser XML::Twig)) {
	my $obj = CPAN::Shell->expand('Module',$mod);
	$obj->install;
}
