#!/usr/bin/perl -w -T
use strict;
use CGI;

my $entrypg=new CGI;

print $entrypg->header,
      $entrypg->start_html(
        -title => "Load your file",
        -BGCOLOR => 'white',
        -LINk => 'red'
      ),
      $entrypg->center($entrypg->h1("Upload annotation file")),
      $entrypg->start_multipart_form(
          -name=>'form',
          -method=>'POST',
          -action=>'http://xyz.co.uk/cgi-bin/Parse.cgi'
      ),
      $entrypg->table(
           {-border=>'1',
           -align=>'CENTER',
           -cellspacing=> '1',
           -cellpadding=>'1',
           },
          $entrypg->TR(
              {-colspan=>'2'},
	      "Please choose your file:"
          ),
          $entrypg->TR(
              $entrypg->td($entrypg->filefield(
	          -name=>'INPUT',
		  -size=>'50'
		  )
	      )
          )
      ),
      $entrypg->submit,
      $entrypg->reset;