sub do_stuff {
	
	# the issue is here
	my $uf = $main::q->upload($fh);

	open (FH, "> $uld/$name")
	while (<$uf>) {print FH};
	close(FH);
	return;
}