Select Code to Download

$mailer= Mail::Mailer->new(...)
  or die qq{$0: Can't create mailer object: $!};

use Data::Dumper; $Data::Dumper::Indent= 1;
print Dumper $mailer;