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