my $session = Net::Telnet::Cisco->new (Host=>$ipaddr,Port=>$port,Timeout=>20);
	$session->print("\r"); # required to wakeup.
	$session->print("\r")