use Net::Telnet ();
$t = new Net::Telnet (Timeout => 5,
                      output_log => "c:\DP\Perl\output.log",
                      Host => "172.20.40.1");
#$t->open("172.20.40.1");
#$t->login($username, $passwd);
@v1 = $t->cmd("\cY");
print @v1;
@v2 = $t->cmd("c");
print @v2;
#$t->print("\cY");
#$t->print("c");
@v1 = $t->cmd("sh ip");
print @v1;
@v1 = $t->cmd("exit");
print @v1;
print "l";
$t->close;
exit;