my $file= param(UPLOAD_FILE);
    if (!$file) { graceful_exit("No File!");}

    my $file_name; my @fname;
    if ($file =~ m/^[A-Z]+:/) {  # its a full filename
	(@fname) = split(/\\/,$file);
        $file_name = $fname[$#fname]; 
    }

    print "Filename:$file, $file_name, $#fname\n";
    if ($#fname < 0) {$file_name = $file;}

    my $content_type = uploadInfo($file_name)->{'Content-Type'};
 my $file_handle = upload(UPLOAD_FILE);
    
    open FILE, "<".FILESHARE_DIR or graceful_exit("Can't read directory file");
    chomp(my $directory = <FILE>);
    sysopen (OUTFILE, "$directory/$file", O_WRONLY | O_CREAT) or graceful_exit("Can't create file!");