#!/usr/bin/perl

use strict;
use warnings;

use AnyEvent;
$|++;

my $done = AnyEvent->condvar;

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

# wait for event
$done->recv;

exit 0;