#!/usr/local/bin/perl -w #-Tw

use strict;

use Net::DNS::SEC::Maint::ZoneSignerService;
use Getopt::Std;
my %opts;
getopt('h:p:', \%opts);

my $s = Net::DNS::SEC::Maint::ZoneSignerService->new();

my $host = $opts{h} || 'signer';
my $port = $opts{p} || '8001';

$s->setLocalAddr($host);
$s->setLocalPort($port);

$s->run;
