$| = 1;
my ($file,$path) = @_;
my $filename = $query->upload($file);
my $buffer;

open(OUTPUT, ">$path/$filename"); 
binmode($filename);
binmode(OUTPUT);

while( read($filename, $buffer, 64*2**10) ) {
	print OUTPUT $buffer;
}

close(OUTPUT);
return ($filename);