find outside ipadress of router with perl

From: Bert Huygens (berth1974_at_yahoo.com)
Date: 05/14/04 

Date: Fri, 14 May 2004 04:22:13 -0700 (PDT)
To: beginners@perl.org

Dear All,
 
is it possible in Perl to find the outside ip-address from an adsl-router
without using an outside box.
 
i need to restart a script when the outside address of the router changes
 
 
Greetings
 
thx in advance

                
---------------------------------
Do you Yahoo!?
SBC Yahoo! - Internet access at a great low price.