Select Code to Download

sub sendemail {    
    $j = 0;
...
MIME::Lite->send('smtp', $mail_host, Timeout=>60);
$msg->send or push @notsent,$email;
}

# Show the results of the send. This sub checks to
# see if the array contains any addresses that it coulnd't send to and
+ displays them:
...
print "<p><a href=$accountmanagement>Return to the Account Management 
+Area</a></p>";
print "<p><a href=$locscriptdownload>Visit the Script Repository</a></
+p>";
}

$msg->send or push @notsent,$email;

#!/usr/local/bin/perl
# This script sends out an email to a specified group of individuals f
+rom
...
DIENICE
        exit;
}