sub cheat {
my $cheatfile = "/home/cheatsheets/$prefix.txt";
open( INFO, $cheatfile );
@lines = <INFO>;
close(INFO);

foreach (@lines){
print $_;
}
}

##</code><code>##

my $counter = 0;
while($counter <= 1){
$session->exp->interact(\*STDIN,"\cA");
my $exit = qx(cat $showlog);
    if ($exit =~ /exit|quit|logout|Inactivity/){
    print colored("logfile:$showlog\n",'yellow');
    die;
    ++$counter;
    }
&cheat;
$session->exp->send("\r\n");
}

##</code><code>##

networks>
adslc -s -s 1________________________line status [card mode]
adslc -s -e 1________________________line errors [card mode]
networks>

##</code><code>##

networks>
adslc -s -s 1________________________line status [card mode]
                                                            adslc -s -e 1________________________line errors [card mode]
networks>

##</code><code>##

i.e.
line1
       line2
              line3