sub mailout{ $sender = new Mail::Sender; $sender->Open({ smtp => 'mail', from => "$from", fake_from => "$from", to => "nobody\@mydomain.com", bcc => "$to", encoding => "quoted-printable", subject => "$subject", ctype => "$htype", }) || die "Sender error: $sender, $Mail::Sender::Error!\n"; # body of email $sender->SendEnc(@body) || die "Sender error: $sender, $Mail::Sender::Error!\n"; # send email $sender->Close || die "Sender error: $sender, $Mail::Sender::Error!\n"; }