use Net::Telnet::Cisco;

  my $session = Net::Telnet::Cisco->new(Host => '67.17.81.28', Port =>'23', Timeout =>'100');