#!/usr/bin/perl -w

use strict;
use diagnostics;

use CGI;
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
use CGI::Pretty;

use DBI;

warningsToBrowser(1);

my $q = CGI->new();
my $title = "mt Annotation pipeline";


print $q->header(),

      $q -> start_html(-title => "$title",
                        -style => { -src => 'mycss/mtannot.css', -type => 'text/css', -media => 'screen' }),
      
      $q->div({-class=>"header"},$title),
      $q->div({-style=>"float: left"},
        $q->div({-class=>"menu"},
          $q->h3("menu"),
          ("here is some text"),
          $q->br(),
          ("spanning two lines")
        ),
      ),
     $q->div({-class=>"content"},
              $q->h1('First Upload your sequence'),        
              $q->table ( {bgColor=> "blue", -border=>1},
                $q->TR([
                  $q->td("1") . $q->td("A") . $q->td("2") . $q->td("B"),
                ]),
                $q->TR([
                  $q->td("1") . $q->td("A") . $q->td("2") . $q->td("B"),
                ]),
              ),
          ),

     $q -> end_html();