#!/usr/bin/perl use LWP::Simple; $content = get("http://checkip.dyndns.org"); #### Current IP CheckCurrent IP Address: 123.132.12.23