sendmail_bg.pl

#!/usr/bin/perl

use File::Temp;

my $basedir = "/tmp/sendmail-$ENV{'USER'}";
my $sendmail = '/usr/sbin/sendmail';
my @opts;
for(@ARGV) {
        push @opts, $_;
}
for(@opts) { shift(@ARGV) }
my $opt = join ' ', @opts;

umask 2;

mkdir $basedir unless -d $basedir;

my $tmp = File::Temp->new( DIR => $basedir );
$tmp->unlink_on_destroy(0);

my $tmpnam = $tmp->filename;

open OUT, "> $tmpnam"
        or die "Cannot create $tmpnam: $!\n";

my $cmdline = join " ", $sendmail, $opt, '<', $tmpnam, '&';

while(<>) {
        print OUT $_;
}

close OUT;

system($cmdline);

if($?) {
        die "Failed to fork sendmail: $!\n"
}