#!/usr/bin/perl #!perl # ############################################################################## #Doug Rice, Copyright 2002,2003 ############################################################################## # # # Include Variables to be included in web pages # # # #200 OK #Content-Type: text/html; charset=utf-8 #Content-Disposition: attachment; filename="cool.html" #Content-Length: 21 # #Save me! #multiline string contents # $header =<<'END'; Thank You - test END $footer =<<'END'; END $body =<<'END';

This is text

END $body2 =<<'END';

Thank You For your interest.

It has not been possible to proceed, this time.

END #print $header; #print $body; #print $footer; # return true 1;