#!/usr/local/bin/perl use CGI; my $cgi = new CGI; print $cgi->header('text/plain'); my $source_dir = "/home/me/source"; my $lib_dir = "/home/me/lib"; my $module = $cgi->param('module'); chdir($source_dir) or die "Can't chdir to $source_dir: $!\n"; system("/bin/gunzip $module.tar.gz") and die "Can't gunzip $module.tar.gz\n"; system("/bin/tar xf $module.tar") and die "Can't untar $module.tar\n"; chdir("$source_dir/$module") or die "Can't chdir to $source_dir/$module: $!\n"; system("/usr/local/bin/perl Makefile.PL PREFIX=$lib_dir") and die "Error running Makefile.PL\n"; system("/usr/bin/make") and die "Error executing make\n"; system("/usr/bin/make test") and die "Error executing make test\n"; system("/usr/bin/make install") and die "Error executing make install.\n";