my $hostname_ref = $dbh->selectcol_arrayref("SELECT hostname FROM perm_inventory ORDER BY hostname");

print $q->header ( "text/html" ),
      $q->start_html ( -title=>'Modify Server in inventory',
                       -author=> 'devnull@devnull.com',
                       -BGCOLOR=>'orange',
                       -style=>{'src'=>'/form.css'} ),
      $q->h1 ( "Modify servers into USG inventory" ),
      $q->hr,
      $q->start_form( -method => "get", -action => "inv" ),
      $q->p( "Hostname",
                $q->popup_menu( -name => "host", -values => $hostname_ref) ),
      $q->p("Vendor",
                $q->textfield( -name => "vendor", -size => "40", -maxlength => "80",-value => "unknown") ),           
      $q->p( "Serial No",
                $q->textfield( -name => "sn", -size => "40", -maxlength => "80", -value => "unknown") ),
      $q->p( "Physical Location",
                $q->textfield( -name => "phy_loc", -size => "40", -maxlength => "80", -value => "unknown") ),
      $q->p( "Raid Config",
                $q->textfield( -name=>'raid_conf', -size => "40", -maxlength => "100", -value => "unknown") ),
      $q->p( "Function",
                $q->textfield( -name => "function", -size => "40", -maxlength => "60", -value => "unknown") ),
      $q->p( "Backup Locations",
                $q->textfield( -name => "bkup_loc", -size => "40", -maxlength => "80", -value => "unknown") ),
      $q->p( "Recovery Media",
                $q->textfield( -name => "recov_loc", -size => "40", -maxlength => "80", -value => "unknown") ),
      $q->submit( -value => "Send to INV cgi"),
$q->end_form,
$q->end_html;