sub Show_HTML { my $html = < # html generating code EOT return $html; }