my $error = "Generate your error message here";

print <<EOF;
Content-Type: text/html

Error: $error

EOF