sub gen_html { my $html = ""; $html .= "\n\n"; $html .= "\n"; $html .= "\n"; return $html; } sub show_html { print &gen_html(); }