my $rhost = $ENV{"REMOTE_HOST"} || "unknown";
my $raddr = $ENV{"REMOTE_ADDR"} || "unknown";
# use mailer-friendly "x headers"
print MAIL "X-REMOTE_HOST: $rhost\n";
print MAIL "X-REMOTE_ADDR: $raddr\n";