$From = "\"$From_Name\" <$From_Who>";										
$msg = MIME::Lite->new( 
    From    => $From,
    To      => $Recipient,
    Subject => $From_Msg,
    Type    => 'TEXT',
    Data 	=> $From_Body
);
		
foreach (@files) { 
    $msg->attach(Type => 'BINARY',
    Path     	=> "$dir/$_",
    Filename 	=> $_,					
    Disposition => 'attachment'
    );
}
$msg->send("sendmail", "/usr/lib/sendmail -t -oi -oem");