if ($main::var{upload_file} ne "") {
				my @new_IP_data;
				if ($main::var{submit} eq "read") {
					my $loaded_IP_list;
					my $allowed_Types = "txt";
					my $max_Size = 4096;
					my $filename = $q->param('upload_file');
						$filename =~ s/.*[\/\\](.*)/$1/;
						$filename =~ s/\s/_/;
					my $upload = $q->param('upload_file');
					
					my $file_Size = -s $upload;
						#$file_Size /= 1000;
					if ($file_Size > $max_Size) {
						print "<p>file is too big - only $max_Size allowed - your file got $file_Size bytes</p>\n";
						(my $kbsize,my $byt) = split(/\./, $file_Size);
						print "~ $kbsize KB";
						
						exit;
					}
					(my $file_ID,my $type) = split(/\./, $filename);
					if($filename !~ /^\w+\.($allowed_Types)/) {
						print "only *.txt allowed";
						
						exit;
					}
					$file_ID = time();
					if (-e "$upload_Dir/$file_ID.$type") {
						print "Content-type: text/html\n\n";
						print "file already exist";
					} else {
	#### doesnt work
	$main::q::DISABLE_UPLOADS = 0;
	my $upload_Handle = $q->upload($filename);
	chdir($upload_Dir) or die "could not read target folder: $!";
	if (!$upload_Handle && $q->cgi_error) {
		print $q->header(-status=>$q->cgi_error);
		exit 0;
	}
	my $error = $q->cgi_error;
    if ($error) {
        print $q->header(-status=>$error),
              $q->start_html('Problem'),
              $q->strong($error);
        exit 0;
    }
	while (<$upload_Handle>) {
        print;
    }
					
	print Dumper $q;
	print $upload;
	
	while(<$upload_Handle>){print $_;}
	print $upload_Dir;
	exit;