simple prob. for an expert...

I get a server error when i run this and sometimes nothing at all. It get sent 3 variables
                     -probnum -lastprob and -question It's sent with method="post" and action="algebra.cgi?new" I
                     think that's ok but i don't have access to server error logs or command line. If anyone has
                     access to command line they could just use perl's -d command ... anyway any help would be
                     greatly appreciated. Or if you think of a better way to do what i'm doing i'll boost the points to
                     400. Thanks. Any question just post. here's the url to the 1st page the place where you ask the
                     question http://www.tiac.net/users/rkeir/EAT/addnew.html Oh, also everything is chmod to
                     755.

                     #!/usr/bin/perl

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

                     #global variables
                     $frontreal = "/xlv0/web/rkeir/EAT/algfake.html";
                     $front = "/EAT/algfake.html";


                     if($ENV{'QUERY_STRING'} eq "new"){
                     &parse_form;
                     &get_variables;
                     &add_part;
                     &show_new;
                     }

                     ############
                     #Parse Form#
                     ############
                     sub parse_form {

                        # Get the input
                         read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});

                        # Split the name-value pairs
                        @pairs = split(/&/, $buffer);

                        foreach $pair (@pairs) {
                         ($name, $value) = split(/=/, $pair);

                         # Un-Webify plus signs and %-encoding
                         $value =~ tr/+/ /;
                         $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
                         $value =~ s/<!--(.|\n)*-->//g;

                         $value =~ s/<([^>]|\n)*>//g;
                         $FORM{$name} = $value;
                         }
                     }

                     ###############
                     #Get variables#
                     ###############

                     sub get_variables {

                      if ($FORM{'probnum'}) {
                         $probnum = $FORM{'probnum'};
                         }
                      if ($FORM{'lastprob'}) {
                         $lastprob = $FORM{'lastprob'};
                         }
                      if ($FORM{'qustion'}) {
                         $question = $FORM{'question'};
                         }
                     }


                     ##########
                     #Add part#
                     ##########
                     sub add_part {
                     open (FILE,"$frontreal") || die "Can't Open $frontreal: $!\n";
                     @LINES=<FILE>;
                     close(FILE);
                     $SIZE=@LINES;
                     open (STORY,">$frontreal") || die "Can't Open $frontreal: $!\n";
                     for ($i=0;$i<=$SIZE;$i++) {
                        $_=$LINES[$i];
                        if (/<!--$lastprob-->/) {
                         
                         print STORY "$question\n";
                         print STORY "<!--$probnum-->\n";
                         }
                     }
                         print STORY $_;
                     close (STORY);

                     print "Location: ",$front,"\n\n";
                     1;
                     }



  2.Question history:

          Comment from
          ozo...
                      calling it with lastprob="**)((" can cause a server error
                      if /xlv0/web/rkeir/EAT/algfake.html is unreadable by the server, that could cause an error
                      if you call it twice at the same time, you might destroy /xlv0/web/rkeir/EAT/algfake.html
          Comment from
          idadan...
                      Well it's a little different than that... Let me explain it a tad more. These are the variables i'm giving it from the html page- probnum is "problem2"
                      lastnum is "problem1" and question is just text. What i'm (trying to do) above is have it look for a hidden comment <!--$lastprob--> (which is
                      problem1) and after that put $question (just some text). It closes by writing <!--$probnum--> so next time i go to do this same process it's the same
                      with different numbers. Here's the script i'm basing it off of. The rest of this script is just non-relavant sub routines.

                      #!/usr/bin/perl

                      # Jackanory V1.0
                      # Created by Steve Coulson http://www.netlink.co.uk/users/avid-eye 
                      # Created on 7th June 1996
                      #
                      # Script based on Guestbook for the World Wide Web
                      # Created by Matt Wright Version 2.3.1
                      # Created on: 4/21/95 Last Modified: 10/29/95
                      #
                      # THIS FILE MUST BE CHMOD 775

                      #############################################################################
                      # Set Variables

                      $storybookurl = "http://www.tiac.net/users/rkeir/EAT/story.html";
                      $storybookreal = "/xlv0/web//rkeir/EAT/story.html";
                      $cgiurl = "http://www.tiac.net/users/rkeir/EAT/jackanory.cgi";
                      $recipient = 'idadan@tiac.net';
                      $incremfile = "/xlv0/web//rkeir/EAT/increm.txt";
                      $storyname = 'My school';
                      $storydesc = 'Can it get any worse?';
                      $mailprog = '/usr/sbin/sendmail';
                      $date_command = "/usr/bin/date";

                      # Set Your Options:

                      $mail = 0; # 1 = Yes; 0 = No - Mails you a copy of story additions
                      $remote_mail = 0; # 1 = Yes; 0 = No - Mails a thankyou to the submitter



                      # Done
                      #############################################################################


                      # Get the Date for Entry
                      $date = `$date_command +"%A, %B %d, %Y"`; chop($date);

                      # Get the input
                      read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});

                      # Split the name-value pairs
                      @pairs = split(/&/, $buffer);

                      foreach $pair (@pairs) {
                         ($name, $value) = split(/=/, $pair);

                         # Un-Webify plus signs and %-encoding
                         $value =~ tr/+/ /;
                         $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
                         $value =~ s/<!--(.|\n)*-->//g;
                         $value =~ s/<([^>]|\n)*>//g;

                         $FORM{$name} = $value;
                      }


                      # allow special characters and paragraphs

                         if ($FORM{'comments'}) {
                          $body = "$FORM{'comments'}";
                          $body =~ s/\cM//g;
                          $body =~ s/\n\n/<p>/g;
                          $body =~ s/\n/<p>/g;

                          $body =~ s/&lt;/</g;
                          $body =~ s/&gt;/>/g;
                          $body =~ s/&quot;/"/g;
                         }
                         else {
                          &no_comments;
                         }

                      # Print the Blank Response Subroutines if no name entered

                      &no_name unless $FORM{'realname'};

                      # get author number

                         open(INCREM,"$incremfile") || die $!;
                         $increm = <INCREM>;
                         $increm++;
                         close(INCREM);
                         

                      # Begin the Editing of the Story
                      open (FILE,"$storybookreal") || die "Can't Open $storybookreal: $!\n";
                      @LINES=<FILE>;
                      close(FILE);
                      $SIZE=@LINES;


                      # Open Link File to Output
                      open (STORY,">$storybookreal") || die "Can't Open $storybookreal: $!\n";


                      for ($i=0;$i<=$SIZE;$i++) {
                         $_=$LINES[$i];
                         if (/<!--addstory-->/) {
                         
                         
                          print STORY "$body <a href=\"#$increm\"><font size=-1>$increm<\/font><\/a>\n";
                          print STORY "<!--addstory-->\n";
                          }

                         else {
                          if (/<!--addauthor-->/) {
                          print STORY "<a name=\"$increm\">$increm. <\/a>$FORM{'realname'}";
                          if ($FORM{'username'}) {
                          print STORY " <a href=\"mailto:$FORM{'username'}\">($FORM{'username'}<\/a>) from IP $ENV{'REMOTE_HOST'} on $date.<br>\n";
                          print STORY "<!--addauthor-->\n";
                          }
                          else {
                          print STORY " from IP $ENV{'REMOTE_HOST'} on $date.<br>\n";
                          print STORY "<!--addauthor-->\n";
                          }
                          }
                          else {
                          print STORY $_;
                          }
                         }
                      }


                         open(INCREM,">$incremfile") || die $!;
                         print INCREM "$increm";
                         close(INCREM);

                      close (STORY);