in reply to No smtp server found

try eval{$mailer->open(\%headers)} || die ("cannot find smtp server");

In Section Seekers of Perl Wisdom