use Addr::MyIP;
use Net::DynDNS::GoDaddy;
 
my $hostname = 'home';
my $domain   = 'example.com';
 
my $current_host_ip = host_ip_get($hostname, $domain);
my $my_ip = myip();
 
if ($current_host_ip ne $my_ip) {
    host_ip_set($host, $domain, $my_ip);
}

##</code><code>##

{
   "api_key" : "api_key",
   "api_secret" : "api_secret"
}

##</code><code>##

> update-ip home example.com

Please enter your GoDaddy API key and hit ENTER: ...api_key...

Please enter your GoDaddy API secret and hit ENTER: ..api_secret... 

Updated record for 'home.example.com' from x.x.x.x to x.x.x.x

##</code><code>##

> update-ip home example.com
Not updating the 'home.example.com' record, IPs are the same

##</code><code>##

> update-ip home example.com 10.7.10.2

##</code><code>##

# Home storage server
*/15 * * * * update-ip home example.com >> /tmp/update-home_cron.log 2>&1

##</code><code>##

*/15 * * * * update-ip roaming example.com >> /tmp/update-roaming_cron.log 2>&1

##</code><code>##

Usage: update-ip host domain.name [ip.addr]