Setting up the alarm in threads with a message if timed out

I'm refering to this question, but didn't want to post it there as it was half a year ago & its already answered.

I think that I 开发者_运维问答need to set the alarm within the thread because it is listening for a connection (sockets) and I dont know what time to set for alarm until the client sents a command.

Short context: A clients sents a command which orders my script to run a selfwritten perl module. This module needs to be killed if it runs longer than it should. This "should" is very specific and will be written in the config file for each module.

I tried the alarm within a simple perl script and it worked quite well - even with my own message.

I am able to let the alarm quit the script, but it does not give me a message at all.

Used this example until I noticed that it may be different with threads.

Then I tried the Thread::alarm($time), but as I started with perl about 3 weeks ago I wasn't able to implement it correctly (it just does nothing. It does not even end the program).

Do you need any code to help or is there a site with examples that I could use and which I just did not find?

Did you already try AnyEvent?

AnyEvent let you setup watchers acting like timers:

# one-shot or repeating timers
my $w = AE::timer $seconds,         0, sub { ... }; # executed only once 
my $w = AE::timer $seconds, $interval, sub { ... }; # executed every $interval

$seconds could be defined during the config phase, at thread start.

In callbacks you may use the same code that kills the program. AnyEvent has its logging framework too AnyEvent::Log, which logs nothing by default, but you can enable some logging to see if it suits your needs about messages.