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}->{host}, port => $CONF->{smtp}->{port}, ssl => $CONF->{smtp}->{ssl}, sasl_username => $CONF->{smtp}->{sasl_username}, sasl_password => $CONF->{smtp}->{sasl_password}, allow_partial_success => $CONF->{smtp}->{allow_partial_success}, helo => $CONF->{smtp}->{helo}, localaddress => $CONF->{smtp}->{localaddress}, localport => $CONF->{smpt}->{localport}, timeout => $CONF->{smpt}->{timeout} }); sendmail($email, { transport => $transport }); }