#!/usr/bin/perl

use strict;
use warnings;
use Martnet::DDNS;
use JSON::PP qw/encode_json/;

my $ddns = Martnet::DDNS->new();
my $cfg = $ddns->get_config();

my $json = JSON::PP->new->canonical(1)->pretty(1);
print $json->encode($cfg);

exit 0;
