Select Code to Download

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

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