========                       ==============
       =      =          perl         = javascript =
       = HTML = <-------  cgi <-------==============
       =      =                       =    html    =
       ========                       ==============
                                            ^
                                            |
                                            |
                                      ==============
                                      =   oracle   =
                                      ==============


##</code><code>##


sub enter_data {
  print start_form,
        textarea( -name => 'name', -default => 'Smith, John' ),
        end_form;
  return 1;
}


##</code><code>##


sub be_pretty {
  print img( -src => '/img/purdy.png' ),
        br(),
        img( -src => '/img/splashlogo.png' );
}

be_pretty(); enter_data();