#!perl -wT

use CGI;
use CGI::Carp qw ( fatalsToBrowser );
use strict;

my $q	=	new CGI;

print $q->header("text/html"),
	  $q->start_html(-title=>"[Subscribe]", leftmargin=>"0", marginheight=>"0", topmargin=>"0", marginwidth=>"0", vspace=>"0", hspace=>"0" ),
	  $q->start_form(-method=>"GET",-action=>"submited.pl"),
	  $q->table({-border=>"1",-width=>"0%"}),
	  $q->Tr([
	  $q->th([$q->img({src=>"../images/menu.gif", align=>"LEFT", alt=>"Menu", name=>"map"})
				]),
			]),
#&nav_bar;
	  $q->????(name=>"map", -shape=>"rect", -coords=>"310,48,353,73", -href=>"#"),
      $q->end_html;