use Event; 
Event->signal(signal=>'HUP', cb=>sub {kill 1, $$}); 
kill 1, $$; 
Event::loop;