perl -Mthreads 
-E"
$SIG{ALRM}=sub{die qq[main:Awooga!\n]}; 
async{
    local $SIG{ALRM} = sub{ die qq[thread:Awooga\n] }; 
    alarm 3; 
    sleep 5
}->detach; 
sleep 7;"

Thread 1 terminated abnormally: thread:Awooga