#!/usr/bin/perl

package WebUtil

sub http_header {
  CGI::header();
}

sub html_header {
  return "<!DOCTYPE html>;
}

sub start_app {
  $WebUtil::dbh
  my($db) = @_;
  $dbh = DBI->connect("dbi:mysql:cmd",$userid,$password);
    return $dbh;
}