$mailer = Mail::Mailer->new("smtp", Server=> "smtp.prodigy.net");