1 use strict; 2 use warnings; 3 4 #-------------------------------------------------------------------------------------------------------------- 5 # html_hack 6 #-------------------------------------------------------------------------------------------------------------- 7 8 sub html 9 { 10 if($main::HTML_HACK) 11 { 12 my $string = shift; 13 &file_append($main::html_file, $string); 14 } 15 return; 16 } 17 18 1;