use Net::Telnet::Cisco;

  my $session = Net::Telnet::Cisco->new(Host => '192.168.25.133', Port =>'2002');

 
my @ok = $session->login();
  

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