#Was: (in sub hook):
	# Write this data to the session file.
	open (SES, ">./$sessid.session");
	print SES "$bytes_read:$length:$percent";
	close (SES);
#Now (in sub hook):
my $_ups = join(':',$bytes_read,$length,$percent);
$sess_ref->attr("_uploadStatus_","$_ups");

#Was: (no sub, just in code [after upload complete]):

	# Delete the session file.
	unlink("./$sessid.session");
# Now in same place:

	# Delete the session value.
	$sess_ref->clear_attr("_uploadStatus_");

# last change:
# Was

	if (-f "./$sessid.session") {
		# Read it.
		open (READ, "./$sessid.session");
		my $data = <READ>;
		close (READ);
		print "$data";
	} else {
		print "Error reading Upload progress...";
	}

#now:

	$data = $sess_ref->attr("_uploadStatus_");

	if($data) {
		print "$data";
	} else {
		print "1:1:1 No Session Value Found";
	}