# ver. 2001-07-14 ###################################################################### ################### Display HTML header ##################### ###################################################################### sub print_header { my ($title) = @_; print "Content-TYPE: text/html\n\n"; print <<"_header_";
| |
$script_name $script_sub_name | ||
| |||