#!/usr/bin/perl
use strict;
use Global;
use CGI qw/:standard/;
# open the employee names file for reading and get the data in it.
open(USERFILE, "$empNamesFILE") or dienice("Unable to open names file");
lock(*USERFILE);
my @names = ;
unlock(*USERFILE);
close(USERFILE);
# print out a form to send a message which points to sendMessage.cgi
# which actually processes the message.
# javascript to verify the user entered all fields.
my $jscript=<"Send a Message",
-script=>$jscript),
my $userRecord;
print<
Send a Message to an Employee
EOF2
;