The following shows how you can find out the session->init() connection information using a myPerlscript.pl Perl script as an example:
<BASEDIR>/IP/smarts/bin/sm_perl -b host:10.1.1.1 -s INCHARGE-AM -u admin -p changeme myPerlscript.pl
$session = InCharge::session->init();
#To find out what the session structure is composed of:
print Dumper($session);#To print domain name:
print $session->{'domain'};#To print username as it is part of Hash of Hash:
print $session->{'args'}->{username};