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

print header( -type => 'text/html' ),
      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'),
      start_form( -method => 'post', -action => 'editpositions.pl' ),
      p( "What is the Job Title?" ),
      textfield( 'JobTitle', '', 30, 80),
      br,
      br,
      "What is the Date Listed?",
      textfield( 'DateListed', '', 30, 80),
      br,
      br,
      "What is the Job Description?",
      br,
      textarea('Description', '', 10, 80),
      submit,
      end_form,
      end_html;