You can save a log of the input and output of session by defining Dump_Log in your telnet object. You can also save a log of your input to the switch by defining Input_Log. This might help you to better understand what's going on in the telnet session.

$tnet = Net::Telnet->new(
           Host => $host,
           Port => $port,
           Dump_Log => $dumplog,
           Input_Log => $inputlog,
      );
[download]

Take a look at the 'waitfor' method in Net::Telnet to get the response after your print