$secs = $telnet->timeout;

 $prev = $telnet->timeout($secs);

##</code><code>##

$ok = $obj->cmd( String  => "xxx",
                 Timeout => $secs,
      );