OT: sendmail question

Sorry, I know this isn't the sendmail list, but this is pretty
simple:

I've calling sendmail from a perl script somewhat like

open (SENDMAIL, "|/usr/lib/sendmail -t") or die "no sendmail!\n";
print SENDMAIL "From: pager\n";
print SENDMAIL "To: mshaw\n";
print SENDMAIL "Subject: test mail\n\n";
print SENDMAIL "Message body, first line\n";
print SENDMAIL "second line\n";
close SENDMAIL or die "sendmail failed!\n";

In this particular application, the mail will never leave my
domain and I'd like to suppress the appending of the domain
name.  I.E. the mail that shows up in my mailbox with the above
has a 'From:' header of 'pager(_at_)dal(_dot_)asp(_dot_)ti(_dot_)com', and I'd 
like it
to be just 'pager'.

Is there a way to do this?  Is there a better place to look/
ask?

Thanks!
Mark Shaw <mshaw(_at_)ti(_dot_)com>