Hi,

try to debug the telnet session using the input_log. After you create the Net::Telnet object do

$t->input_log(q{net_telnet_input.log});
[download]

run again the script and then look to the created log file.