#!/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();