#!/usr/local/bin/perl

use CGI "all";

$nl = "\n";

$q = new CGI;

print $q->header, $nl;
print
  $q->start_html(-title=>'LAPCOD Meeting Registration', -bgcolor=> '#FFFFFF'), $nl;

## Trailer
print "<script src=\"trailer.js\"></script>", $q->p; $nl;
## Header
print "<script src=\"header.js\"></script>", $q->p; $nl;
## Header 2
print "<script src=\"header2.js\"></script>", $q->p; $nl;

print $q->blockquote(
  $q->center(
    $q->font({-size=>'+2', -face=>'helvetica,arial,sans'},
      $q->b("Meeting Registration Form")
    )
  ) 
), $nl;

#print "<blockquote>", $q->p;
#print "<center>", $q->p;
#print "<font size=\"+2\" face=\"helvetica,arial,sans\"><b>", $q->p;
#print "Meeting Registration Form", $q->p;
#print "</b></font>", $q->p;
#print "</center>", $q->p;
#print "</blockquote>", $q->p; $nl;

print "<blockquote>\n", $q->p; $nl;

## pre
#print "Sorry but the Registration for the December 2002 LAPCOD Meeting \
#in Key Largo, Florida is not yet open. \
#Please check back later.\n", $q->p; $nl;
## post
print "Sorry but the Registration for the December \
2002 LAPCOD Meeting in Key Largo, Florida is \
<font color=red><b>closed</b></font>.\n", $q->p; $nl;

print "</blockquote>\n", $q->p; $nl;

## Trailer
print "<script src=\"trailer.js\"></script>", $q->p; $nl;

print $q->end_html, $nl;
exit 0;