log4perl.appender.DBI.user = sub { $ENV{USERNAME} };