#!/usr/bin/env perl
use strict;
use warnings;
use LWP::Simple;
if( defined(my $Response=get(
  "https://www.dtdns.com/api/autodns.cfm?id=skunk.dtdns.net&pw=password")) ){
   print "$Response\n"
}
else { print "Update failed\n" }