#!/usr/bin/perl use CGI; my $q = new CGI; my $address = $q->param ("mail"); open MAIL, "| /usr/lib/sendmail $address"; print MAIL "To: $address \n"; print MAIL "From: Mark Stamp\n\n"; print MAIL "You will soon receive the requested info\n"; close(MAIL); print "Content-type: text/html\n\n"; print ""; print ""; print "

Back to the summary

"; print ""; print ";