my $file = $q->param("file") || error ($q, " No file received.");
my $filename = $q->param("filename") || error ($q, " No filename entered.");

my $fh = $q->upload( $file );

$tmp="../user/$filename";
open(OUTPUT, ">$tmp") or die ("Cannot open upload file"); 
while ( read( $fh, $buffer, 1024) ) { 
	print OUTPUT $buffer; 
}