#!/usr/bin/perl

use strict;
use warnings;
use Net::Appliance::Session;

my $session_obj = Net::Appliance::Session->new( 
           Host      => $cisco_console_server, 
           Transport => 'Telnet', 
);
$session_obj->connect(
           Name      => 'user',
           Password  => 'password',
           Opts      => [ '-p', '2033', ]
);