@Eric Bewley:
is your gallery directory in a for web opened place ?
did you apply the first line of gallery.pl to your perl directory ?
your absolute path could be set wrong - don't use driveletter - check out post#1 for details ..
your gallery.pl should be in the same folder like the other .pl from yabb - this folder should allow to execute scripts.

greetings
louisle

sub readform {
     my(@pairs, $pair, $name, $value);
     sub split_string
     {
           my ($string, $hash, $altdelim) = @_;

           if($altdelim && $$string =~ m~;~) { @pairs = split(/;/, $$string); }
           else { @pairs = split(/&/, $$string); }
           foreach $pair (@pairs) {
                 ($name,$value) = split(/=/, $pair);
                 $name =~ tr/+/ /;
                 $name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
                 $value =~ tr/+/ /;
                 $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
                 if (exists($hash->{$name})) {
                       $hash->{$name} .= ", $value";
                 } else {
                       $hash->{$name} = $value;
                 }
           }
     }

     split_string(\$ENV{QUERY_STRING}, \%INFO, 1);  
     if ($ENV{REQUEST_METHOD} eq 'POST') {
           if ($ENV{CONTENT_TYPE} =~ /multipart\/form-data/) {                  
                 use CGI;
                 my $query = new CGI;
                 my $zipfile = $query->param('uplzip');
                 my $tmpfile = $query->tmpFileName($zipfile);

                 local( $/, *TMP );
                 open(TMP,"$tmpfile");
                 my $filedata = <TMP>;
                 close(TMP);

                 open(TMP2,">$memberdir/$zipfile");
                 print TMP2 $filedata;
                 close(TMP2);

                 for(my $x=1;$x<=5;$x++) {      
                       $feld = "uplfoto".$x;
                       my $file = $query->param($feld);
                       my $tpfl = $query->tmpFileName($file);

                       local( $/, *TMP );
                       open(TMP,"$tpfl");
                       my $filedata = <TMP>;
                       close(TMP);

                       open(TMP2,">$memberdir/$file");
                       print TMP2 $filedata;
                       close(TMP2);
                 }
           }