#!/usr/bin/perl


# new_file.pl - SHORT DESC
# dprelec, 2014

use strict;
use warnings;
use utf8;

my @modules = qw(
Email::Sender::Simple
Email::Simple
Email::Simple::Creator
);

print "Content-type: text/plain\n\n";

print "Perl: $^V\n";
print "INC:\n";
print "@INC";
print "\n";
for my $key (sort keys %INC) {
    print "$INC{$key}\n";
}
print "\n";

for my $module (@modules) {
    print "require $module ";
    eval "use $module;";
    if ($@) {
        print "ERROR $@\n";
    }
    else {
        print "OK\n";
    }
}

print "\n\n";
print system("ls -R /usr/share/perl5");