#!/usr/bin/perl
use Net::Telnet::Cisco;
use strict;

my $rtrip = 'xx.xx.xx.xxx';
my $user  = 'login';
my $pass  = 'support123';
my $cmd   = 'some command';

my $session = Net::Telnet::Cisco->new( Host    => $rtrip, 
                                       Prompt  => '/ERX02/,
                                       Timeout => '30');
$session->login( Name     => $login, 
                 Password => $pass, );

my @output = $session->cmd($cmd);
print @output;