#!perl\bin\perl
use strict;
use warnings;
  
  my $t; 
  my @lines;
  my @ok;
  
    use Net::Telnet(); 
    $t = new Net::Telnet(timeout=>1500);

     $t->open("ip_address");
     $t->waitfor('/ENTER USERNAME < /i');
     $t->print("username");
     $t->waitfor('/ENTER PASSWORD < /i');
     $t->print("password");
     @ok = $t->getlines;
     print @ok;