Select Code to Download

my (@array)=$telnet->cmd(string => 'ls', prompt => '/=>/');

my ($a, $b, $c)=$telnet->cmd(string => 'ls', prompt => '/=>/');

btm.swi
 secondary.swi
 cfg/