漏れが悩んでいるのはperlでどうやってルーターの内側から
グローバルアドレスを取得するか、なのだが。