sub Email_Results{
$msg = MIME::Lite->new(
From => 'net-admin@someplace.org',
To => 'decoraw@someplace.org',
Subject => 'Trying to send attachment',
Type => 'multipart/mixed');
$msg->attach(
Type => 'text/html',
Data => << "EOHTML"
Human Resources : Application for Employment
EOHTML
);
$msg->attach(
Type => 'application/octet-stream',
Path => "$Directory/$File_Name",
Filename => $File_Name );
$msg->send();
}