perlで自分のIPアドレスを調べる方法はありませんか。

CGIではないので、＄ENV{'SERVER_ADDR'}とかは使えません。
できれば、eth0とかeth1とかbr0とかNICを指定して調べられると良いのですが…