NET::Telnet 
my $obj = Net::Telnet->new(Host => 'X.X.X.X', Timeout => 10, Errmode => 'return');
$obj->open('X.X.X.X') or die;
$obj->login($username, $password);