my $msg = MIME::Lite->new
(
Subject=>"Mime lite example",
From=>'mime\@lite.com',
To=>$email,
Type=>'text/html',
Data=>$emaildata
);
$msg->send('smtp',$smtpserver,AuthUser=>$user,AuthPass=>$pass,Debug=>1);