Select Code to Download

#!/usr/bin/perl
use warnings;
...

my $result = $mailer->send($message);
print "$result\n";