#!/usr/bin/perl

use strict;
use warnings;

use AnyEvent;

# set up event handler
my $w = AnyEvent->signal (signal => "HUP", cb => sub { print "Got SIGHUP, reloading..."; });

# wait for event
$done->recv;

exit 0;