Your help with Perl is requested..

Junior WebHelper Joined: 21 Nov 2002 Posts: 1

Hello ALL.
I'm new here and have been groping around looking
to see if my problem may have been addressed before.
Unfortunately no.

I'm having a problem with a Guestbook and I'm sure
someone here is capable of solving this.

I use the Perl checker which hosts my pages, to
check the script. Below is what I get in return.
___________________________________
Filename: /cgi-bin/bnbbook.cgi
Results: - Useless use of a constant in void context at /cgi-bin/bnbbook.cgi line 432.

- /cgi-bin/bnbbook.cgi syntax OK
___________________________________
The portion of the script referred to is:

############################
sub get_the_lock
{
$lockfile="$TEMPDIR/bnbbook.lck";
local ($endtime);
$endtime = 60;
$endtime = time + $endtime;
while (-e $lockfile && time < $endtime)
{
# Do Nothing
}
close(CLOSE_FILE, ">$closefile");
}

############################
sub drop_the_lock
{
close($closefile);
unlink($closefile);
}

#############################

Line 432 is:
close(CLOSE_FILE, ">$closefile");
______________________________________

If this is not enough information to get the assistance I need,
I'd be very happy to send a copy of the script to be looked
over.

Thanks for any help I can get. In the meantime I have
downloaded a Microsoft based pearl software and will
be getting my hands dirty, trying to learn Perl.
Thanks again