-----------------------------------------------------
lib.pl
-----------------------------------------------------
sub ReadParse {

  if (@_) {

    local (*in) = @_;

  }



  local ($i, $loc, $key, $val);



  # Read in text

  if ($ENV{'REQUEST_METHOD'} eq "GET") {

    $in = $ENV{'QUERY_STRING'};

  } elsif ($ENV{'REQUEST_METHOD'} eq "POST") {

    for ($i = 0; $i < $ENV{'CONTENT_LENGTH'}; $i++) {

      $in .= getc;

    }

  }

  @in = split(/&/,$in);



  foreach $i (0 .. $#in) {

    # Convert plus's to spaces

    $in[$i] =~ s/\+/ /g;



    # Convert %XX from hex numbers to alphanumeric

    $in[$i] =~ s/%(..)/pack("c",hex($1))/ge;



    # Split into key and value.

    $loc = index($in[$i],"=");

    $key = substr($in[$i],0,$loc);

    $val = substr($in[$i],$loc+1);

    $in{$key} .= '\0' if (defined($in{$key})); # \0 is the multiple separator

    $in{$key} .= $val;

  }



  return 1; # just for fun

}

-----------------------------------------------------
main.pl
-----------------------------------------------------
&Init; # Initilisierung der Schnittstelle
$ENV{'QUERY_STRING'} =~ s/\~/\=/g;
&ReadParse;

-----------------------------------------------------
form.pl
-----------------------------------------------------
print <<"ANFANG_KNOPF";
<td align="center">
        <input NAME="anfang" type="submit" class="go_button_100_2" value="1">
</td>
ANFANG_KNOPF
    
print <<"PREV_KNOPF";
<td align="center">
        <input NAME="previuos" type="submit" class="go_button_100_2" value="2">
</td>
PREV_KNOPF

print <<"NEXT_KNOPF";
<td align="center">
        <input NAME="next" type="submit" class="go_button_100_2" value="3">
</td>
NEXT_KNOPF
    
print <<"ENDE_KNOPF";
<td align="center">
        <input NAME="ende" type="submit" class="go_button_100_2" value="4">
</td>
ENDE_KNOPF