http://qs321.pair.com?node_id=652107


in reply to Problem with signal handler

Hi! Just keep track in your parent to see if/how many times ctrl-c was pressed: like :
[...] my $pid = fork; my $dontDie = 2; [...]
And then in your Interrupt routine:
$SIG{INT} = sub { die "This is the end" unless --$dontDie; warn "Sending sig INT to child PID $pid"; kill 'INT' => $pid; };
(This is just a quick fix, do please pay close attention to jbert's comments)

GreetZ!,
    ChOas

print "profeth still\n" if /bird|devil/;