Try add some logging for debugging
if ($t = new Net::Telnet (
Timeout => 20,
Prompt => $Eleprompt,
Input_Log => 'telnet.log' )){
and fix these errors
Possible unintended interpolation of @commandoutput1 in string at telnet0.pl line 23.
Possible unintended interpolation of @commandoutput2 in string at telnet0.pl line 25.
Global symbol "@commandoutput1" requires explicit package name at telnet0.pl line 22.
Global symbol "@commandoutput1" requires explicit package name at telnet0.pl line 23.
Global symbol "@commandoutput2" requires explicit package name at telnet0.pl line 24.
Global symbol "@commandoutput2" requires explicit package name at telnet0.pl line 25.
poj