The programmatic solution, that is likely to work with most routers and without relying on the good graces of external services, is to use UPNP.
There are Perl-extensions for UPNP, or you can use the upnpc-program from the miniupnpc-package. For example:
upnpc -s | grep ExternalIPAddress
Hope, this helps.
As this thread is now over two years old, it will be locked in order to keep discussions current. If you have the same or a similar question/issue we invite you to start a new thread on the topic.
Start a new topic or ask questions in the open forum.
