foreach $key (sort {$a <=> $b} $query->param()) {
next if ($key =~ /^\s*$/);
next if ($query->param($key) =~ /^\s*$/);
next if ($key !~ /^filetoupload_(\d+)$/);
$Number = $1;

if ($query->param($key) =~ /([^\/\\]+)$/) {
    $Filename = $1;
    $pxuser = $2;
    $Filename =~ s/^\.+//;
    $pxuser =~ s/^\.+//;
    $files{$Number} = $Filename;
    $File_Handle = $query->param($key);

if (!$ALLOW_INDEX && $Filename =~ /^index/i) {
     print header;