Hi monks, I'm brand new to coding (under a month's worth) and have found this site to be one of my gotos for info. The script I'm attempting to write establishes a telnet connection to an HP Procurve switch, reboots it, accesses it's extended boot menu, clears out all but it's basic files and reboots the switch. I'm running into a snag when I issue a command to list all current files (which is ls for this switch) I'm trying to capture the output into a string or an array, but it doesn't capture anything. the command is issued while watching the switch and I can see it list all the files, but the string or array I tell it to dump to is empty. below is the code focusing on getting the info into the array. Any and all help would be greatly appreciated.

#!/usr/bin/perl
$| = 1;


use Net::Telnet;
use strict;
use CGI;
use warnings;


print("content-type: text/html\n\n");

my $console_server = ('TRN-13-MRV-CON-07');
my $console_mgmtA  = ('2013');
my $match;
my $garbage;
my $output;
my @array;


establishing Telnet connection
my $telnet = new Net::Telnet (Timeout=>10, Errmode=>'return', Port => 
+$console_mgmtA);

$telnet->open($console_server);
$telnet->put(chr(13));
sleep(1);

$output=$telnet->cmd('ls');

#to see what's in the string
print("$output\n");

#take the string and create an array 
@array = split("\n",$output);

#see what's in the array
print @array;


exit;
[download]