#!/usr/local/bin/perl

$header = <<HTML_HEADER;
Content-type: text/html

HTML_HEADER

$theinput = <STDIN>;

$header =~ s/\015/\015\012/g;

print $header;

print "<center>Your results have been submitted.<br>";
print "<em>Thank you!</em></center>\n";


open F, "| mail YOUREMAILHERE";

print F "$theinput\n";

close F;