use strict;
use warnings;
use MCE::Hobo;

sub worker
{
    print "Worker thread started.\n";
    while(1){}
}

my $hobo = MCE::Hobo->create(\&worker);

print "Setting alarm.\n";
$SIG{ALRM} = sub { print "Alarm!\n" };
alarm 2;

print "Joining.\n";
$hobo->join();


##</code><code>##

Setting alarm.
Joining.
Worker thread started.
Alarm!