$mail_prog = '/usr/sbin/sendmail';

# to enable mail queueing for sendmail set this to '-odq' (set to '' for no queue) 
# *warning* -odq option needs to be configured or messages will never be delivered!
my $odq = '-odq';

open ('MAIL', "|$mail_prog -t -i $odq") or DieNice("Can't open mail program '$mail_prog': $!\n");
print MAIL $message;
close MAIL;