use Net::Telnet::Cisco;
#
$host="10.10.10.30";
$port="2033";
$user="cisco";
$password="cisco";


my $session = Net::Telnet::Cisco->new(
Host => $host,
Port => $port,
Prompt => '/.*#:/',
Input_log => "input.log", 
Output_log => "output.log", 
Dump_Log => "dump.log",
Timeout => 10);

$session->always_waitfor_prompt;
$session->waitfor_pause(0.6);

#Sending new line for carriage return
$session->print("\n");

#Checking whats the last promt
$match = $session->last_prompt;
print" Match: + $match";

#Wait for the username prompt and enter username
@out = $session->waitfor('/Username:.*$/');
print "@out\n";
@out = $session->print($user);
print "@out\n";

#Wait for the password prompt and enter the password
#$session->waitfor_pause(0.6);
#
@out = $session->waitfor('/Password:.*$/');
print "@out\n";
@out = $session->print($password);
print "@out\n";

#$session->always_waitfor_prompt;

#Wait for enable password
@out = $session->waitfor('/vcctest-30-6k\>/');
print "@out\n";
@out = $session->print("enable");
@out = $session->waitfor('/Password:.*$/');
print "@out\n";
@out = $session->print($password);


@out = $session->close;