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;