Really you're going to find it much easier in the long wrong (espcially to manage) to just utilize Email::Sender::Simple with Email::Simple::Creator: here's an easy to understand example:

        my $email = Email::Simple->create(
                header  => [
                        To      => $p->{email_to},
                        Cc      => $p->{email_cc},
                        From    => $CONF->{smtp}->{from},
                        Subject => $sub
                ],
                body            => $str
        );

        if($DRYRUN){
                print "---- EMAIL ----\n${$email->{body}}\n---- END FO
+ EMAIL ----\n" if $DEBUG;
        } elsif($CONF->{smtp}->{enabled}) {
                # Do some more emailing and stuff below...
                my $transport; 
                $transport = Email::Sender::Transport::SMTP->new({
                        host                    => $CONF->{smtp}->{hos
+t},
                        port                    => $CONF->{smtp}->{por
+t},
                        ssl                     => $CONF->{smtp}->{ssl
+},
                        sasl_username           => $CONF->{smtp}->{sas
+l_username},
                        sasl_password           => $CONF->{smtp}->{sas
+l_password},
                        allow_partial_success   => $CONF->{smtp}->{all
+ow_partial_success},
                        helo                    => $CONF->{smtp}->{hel
+o},
                        localaddress            => $CONF->{smtp}->{loc
+aladdress},
                        localport               => $CONF->{smpt}->{loc
+alport},
                        timeout                 => $CONF->{smpt}->{tim
+eout}
                });

                sendmail($email, { transport => $transport });
        }
[download]