#!/usr/bin/perl -w use strict; use CGI qw(:standard); my $request = new CGI; my $emailaddress = "me\@mydomain.com"; my $emailaddress2 = "client\@clientdomain.com"; my $htmlpagegood = 'TITLE

HI'; my $htmlpagebad = 'TITLE

BYE'; open(MAIL, "|/usr/lib/sendmail -t") or die "Content-type: text/html\n\n\n$htmlpagebad"; print MAIL "To: $emailaddress\n"; print MAIL "From: $emailaddress2\n"; print MAIL "Subject: subjectmatter\n"; print MAIL "Content-type: text/plain\n\n"; print MAIL "bodytext\n\n"; close(MAIL) or die "Content-type: text/html\n\n\n$htmlpagebad"; print "Content-type: text/html\n\n\n$htmlpagegood"; exit;