sub PrintForm {
    &Open_File;
    &Read_File;
    &Close_File;
    print header( -type => 'text/html' ),
     start_html( -title   => 'PMI Human Resources',
                 -background=>'/yellow_stucco.gif'),
     start_form(-method => 'post', -action => 'editpositions.pl'),
       scrolling_list(-name=>'list_name',
                      -values  => \@JobTitle,
                      -size    => 1),
       br,
       br,
      submit(-name  => 'Add',
             -value => 'Add Position'),
       br,br;
    if (@JobTitle) {
       print submit(-name  => 'Edit',
                    -value => 'Edit Position'),
        br,br,
        submit(-name  => 'Delete',
               -value => 'Delete Position'),
        br,br,
        end_form;
}
     print start_form(-method => 'post', -action => '../EditDeptInfo.pl.bak'),
       hidden('Manager', 'Manager'),
       submit(-name  => 'Cancel',
              -value => 'Cancel'),
     end_form,
     end_html;

##</code><code>##

print header(-type => 'text/html\n\n'),
      start_html(-title => 'PMI Human Resources',
                 -background=>'/yellow_stucco.gif'),
      start_form(-method => 'post', -action => 'editpositions.pl' ),
        "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?",
        textarea('Description', '', 10, 80),
        br,
        br,
        submit(-name => 'AddFile',
               -value=> 'AddFile'),
      end_form,
start_form( -method => 'post', -action => 'editpositions.pl'),
       p,
       hidden('Manager', 'Manager'),
       submit(-name => 'submit',
              -value=> 'Cancel'),
      end_form,
      end_html;
}