#!/usr/local/bin/perl -w
$body = "Some stuff here...";
use Mail::Mailer;
$mailer = Mail::Mailer->new("sendmail");
$mailer->open({ From => "BurningBritches\@hotpants.com",
                To   => "someone\@somewhere.com",
                Subject => "Masked Mail Headers",
             })
or die "Can't open: $!\n";
print $mailer $body;
$mailer->close();
[download]