#!/usr/bin/env perl
use strict;
use warnings;
use LWP::Simple;
use Sys::Syslog;
while (1) {
  if( defined(my $Address=get("http://myip.dtdns.com")) ) {
    syslog("info","Got: $Address")
  }
  else {
    syslog("info","Got: "        )
  }
  sleep 180
}