#!/usr/bin/perl

use strict;
use warnings;
use PVE::DHCPServer qw(:constants);
use Data::Dumper;

my $server = PVE::DHCPServer->new(
    NODAEMON => 1,
    DEBUG => 1,
    LOG_LEVEL => DEBUG);

#print Dumper($server);
$server->run;