#get group
				$groups =  `/usr/bin/id -G $username`;
				chomp $groups;

				# drop privileges to owner of filesystem
				$) = "$groups"; #setegid
				$> = $uid; #seteuid

				$currentdir = Cwd::getcwd();
				my $lasterr = $!;

				if (not defined $currentdir) {
					print "getcwd() failed : @_\n";
				} else {
					print "getcwd() for $over is OK.";
				}