use Email::Sender::Simple qw(sendmail);
use My::Email::TransportAgent; # returns instance of Email::Sender::Transport::SMTP

...

sendmail( $email, { transport => My::Email::TransportAgent->new } );