my $user_id = "";
	foreach my $key (sort keys(%ENV)) {
	  if ($key =~ /QUERY_STRING/) {
		push(@ts_dir,$ENV{$key});
		#print "$ENV{$key}<p>";
	  }
	  elsif ($key =~ /IWUSER/) {
		$user_id = $ENV{$key};
		#print "$user_id<p>";
	  }
	}