sub upload_file {	
        my ( $fh, $req_ ) = @_;
	my %req     = %$req_;
	my $header_ = $req{HEADER};
	my %header  = %$header_;

        my ($file, $desc, $dirpath ) = (undef, undef, undef);
	my $boundary = trim (form_data_boundary( $header{'content-type'} ));
	my $user_agent = $header{'user-agent'};

 # Now i will process the post buffer and copy the file #to local machine into a temp directory. I shall also #receive the filename, destination directory and some #other metadata information.

($file, $desc, $dirpath) = process_POST_buffer($fh, $req_, $boundary);

# Then i spawn another thread to do the pre-processing on this file
my $t = threads->create( \&pre_process, $file, $desc, $dirpath );

}