#!/usr/bin/perl -w

use warnings;
use strict;
use CGI;
my $cgi = CGI->new();
my %FORMDATA = $cgi->Vars();

my @arrnameval = ();
my $querystring =();
my $nam =();
my $val =();
my $namval =();
my $ergebnis =();
my $fehlermeldung =();
$FORMDATA{item}=0;
$FORMDATA{Galerie}="";
$FORMDATA{User}="";


if ($ENV{'REQUEST_METHOD'} eq 'GET')
{
    $querystring = $ENV{'QUERY_STRING'};
#print "$querystring<BR>";
}
if ($querystring !~ "QQitemZ") {
     @arrnameval = split(/&/, $querystring); 
} else {
...
..