This will hopefully give you all the info you need
# and somewhere
if ( $USER ) {
require GT::Dumper;
print GT::Dumper->dump( $USER );
}
else {
print "no user logged in";
}
Code:
use Links qw/ $IN $DB $CFG $USER /; # and somewhere
if ( $USER ) {
require GT::Dumper;
print GT::Dumper->dump( $USER );
}
else {
print "no user logged in";
}