#
$User = $1 if ( $User =~ /uid=([^,]+)/i || $User =~ /(.*)/ );
+ # strip Active directory domain in front of user
+ $User = $1 if ( $User =~ /\w+\\(\w+)/ );
+use Data::Dump qw(dump);
+warn "XX User: $User",dump( \%ENV );
+
#
# Clean up %ENV for taint checking
#