#!/usr/bin/env perl
use Dancer;
use DNSManager;
dance;