change this part:

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

with this :

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

I think this is the problem cheers!!!!