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

##</code><code>##

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