$user='user@host.co.za';
$pass='password';


MIME::Lite->send('smtp',$mailhost,Debug=>0,
	 AuthUser=>$user, AuthPass=>$pass);

#$msg->send;
eval{$msg->send;};

$now = &now("today");
if($@)
{
	#print "\nFailed------>".$@."\n";
}
else
{
	#print LOG "\n------>successful";
}