PerlでWAN側アドレスを取得 - @鯖味噌缶

#!/usr/bin/perl
use Net::Telnet();
$lines   ="";
$wp_host = '192.168.**.**'; <-- ルータのＩＰアドレス
$wp_user = 'admin';   <-- ルータ管理者アカウント名（固定）
$wp_pass = '*********'; <-- ここには自分のパスワードを入れてね
$t=new Net::Telnet(Timeout => 10);
$t->open($wp_host);
$t->waitfor('/login   :.*$/');
$t->print("$wp_user");
$t->waitfor('/Password:.*$/');
$t->print("$wp_pass");
$t->waitfor('/>.*/');
$result = "ERR\n";
$t->print("show info wan 22");
($lines)=$t->waitfor('/>.*/');
foreach $_ (split(/\n/, $lines)) {
 if(/^( +)(IP ADDRESS +)(\.+ )( *)([0-9]*\.)( *)([0- 9]*\.)( *)([0-9]*\.)( *)([0-9]*)/) {
 $result = "$5$7$9$11\n";
 }
}
if($result == "0.0.0.0") {
  $result = "ERR\n";
}
print $result;
$t->close;
exit