my @results = $telnetvar->cmd(String => 'show version', 
     Prompt => '/#/') ;


##</code><code>##

foreach $resultline (@results) {
     print OUTPUT "$resultline\n";
}