use strict; my $stuff = join(":", <

##

sub Show_HTML {
    my $html = <
    
      Enter something: 
        
      

      
    
    
  EOHTML