use Mail::Sender;
...
my $sender = Mail::Sender->new();
$sender->Open({to => ..., from => ..., subject => ..., ...});
local *SENDMAIL = $sender->GetHandle();
print SENDMAIL "Hello there\nThis is the message!";
close SENDMAIL;