#!/usr/local/bin/perl -w
use strict;
use CGI qw/:standard/;    # load standard CGI routines

 my $query = new CGI;

 print $query->header(type=>'image/gif'); 
 print $query->start_html(title=>'PMI Human Resources', 
                          author=>'berry-kelly@pmimail.com',
                          meta=>{'keywords'=>'PMI HR HumanResources',
                                 'copyright'=>'copyright 2001 Kelly Berry'},
                          style=>{'src'=>'style.css'},
                          BGCOLOR=>'blue');
  print $query->start_form(method=>'post', action=>'editpositions.pl');
 print "What is the Job Title?";
 print $query->textfield('JobTitle','',30,80);
 print "<br><br>What is the Date Listed?";
 print $query->textfield('DateListed','',30,80);
 print "<br><br>What is the Job Description?<br>";
 print $query->textarea('Description','',10,80);