while($session){
$session->exp->interact(\*STDIN,"\cA");
##save logfile to var
my $exit = qx(cat $showlog);
##check logfile for exit strings
    if ($exit =~ /exit|quit|logout|Inactivity/){
    print colored("logfile:$showlog\n",'yellow');
#kill session
    die;
    }
print "\njohn\nsmith";
}

##</code><code>##

networks>
          john
              smith
networks>
john
smith
networks>