#!/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';
This is text
END $body2 =<<'END';
It has not been possible to proceed, this time.
END #print $header; #print $body; #print $footer; # return true 1;