sub Email_Results{
my $message = '
Human Resources : Application for Employment
';
$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 => $message);
$msg->attach(Type => 'application/octet-stream',
Path => "$Directory/$File_Name",
Filename => $File_Name );
$msg->send();
}