BEGIN {
    my @installmodules = (
    "DBI",
    "XML::Simple",
    "Tk",
    "Data::Dumper",
    "Data::Printer"
    );
    my @removemodules = (
    "Socket6",
    "IO::Socket::INET6"
    );

    foreach my $module (@installmodules) {
        eval "use $module";
        if ($@) {
            $module =~ s/::/-/g;
            print "Package $module is not installed\n";
            if ($module eq "Net-LDAP") {
                $module = "perl-ldap";
            }
            my $result = system("ppm install $module");
            if ($result != 0) {
                die "Could not install all libraries/modules required.
+ Failed to install [$module].\n";
            }
        }
    }

    foreach my $module (@removemodules) {
        eval "use $module";
        unless ($@) {
            $module =~ s/::/-/g;
            print "Problem package $module is installed\n";
            my $result = system("ppm remove --force $module");
            if ($result != 0) {
                die "Could not remove all libraries/modules required. 
+Failed to remove [$module].\n";
            }
        }
    }
}
[download]