##

#!/usr/local/bin/perl

use CGI;

print "Content-type: text/html\n\n";

&GetAllCookies;
my $userid = $Cookies{userid};

$upload_dir = "/usr/home/tiri/htdocs/upload/";  ## not the real path ... but the path is to my htdocs/upload directory (which already exists)

$mydir .= $upload_dir .$userid ;

`mkdir $mydir`;      ## create the directory for this user

print "created the dir $mydir";

$query = new CGI;
$filename =  $query->param("photo1");
$upload_filehandle = $query->upload("photo1");
$filename=~ s/.*[\/\\](.*)/$1/;

open (UPLOADFILE, ">$mydir/$filename")|| die $! ;
binmode UPLOADFILE;

 while ( <$upload_filehandle> )
 {
   print UPLOADFILE;
 }

 close UPLOADFILE;

##

##

 $upload_filehandle = $query->upload("photo1");