#!/usr/bin/perl

use strict;
use warnings;
use Martnet::DDNS;
use Regexp::Common qw/net/;

my $host = shift || die "No vhost provided";

die "Hostname must end in a dot"
    unless ($host =~ /^[a-zA-Z0-9\-\_\.]+\.$/);

my $ddns = Martnet::DDNS->new();
$ddns->del($host, '_vhosts');
