#!/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;
    }
}

##</code><code>##

#!/usr/local/bin/perl -w

use strict;

print "You must be root to run this program\n" and exit 1 unless ($> == 0);

BEGIN {
    foreach my $module ( qw{Config::Auto Mail::Sendmail} ) {
        unless (eval { require $module }) {
            print "Need to install $module module.  I'll do that for you now:\n";
            my $ret = system("perl -MCPAN -e 'install $module'");
            print $ret;
        }   
    }   
}

##</code><code>##

eval {"require $module"}