#!/usr/local/bin/perl -w use strict; print "You must be root to run this program\n" and exit 1 unless ($> == 0); BEGIN { unless (eval { require Config::Auto }) { print "Need to install Config::Auto module. I'll do that for you now:\n"; my $ret = system("perl -MCPAN -e 'install Config::Auto'"); print $ret; } }