#!"C:\perl\bin\perl.exe"

 if($ENV{'REQUEST_METHOD'} eq 'GET')
   {
     my @ParameterListe = split(/&/, $ENV{'QUERY_STRING'});
     my $i = 0;

     foreach $Param (@ParameterListe)  
       {
         ($Parameter [$i], $Parameter [$i + 1]) = split(/=/, $Param);
         $Parameter [$i] =~ tr/+/ /;
         $Parameter [$i] =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; 
         $Parameter [$i] =~ s/<!--(.|\n)*-->//g;
         $i++; $i++;
       }

     if ($Parameter [1] ne 'u')
       {
         while ($i > 2)
           {
             $i--; $i--;

             system ("C:\\Programme\\(c4p)\\c4pRemote",
                     "-$Parameter[1]",
                     "-n\"$Parameter[$i]\"");
           }
       }

    print "Location: http://$ENV{'HTTP_HOST'}/cgi-bin/remote.pl?"
        . "$Parameter[2]=$Parameter[3]\n\n";
   }

 exit 0;