# 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 );
+#use Data::Dump qw(dump);
+#warn "XX User: $User",dump( \%ENV );
#
# Clean up %ENV for taint checking