#! perl slw
#use 5.008008; For "no warnings 'threads'" ## Doesn't work?
use strict;
use threads;
no warnings 'threads';

async {
    no warnings 'threads';
    sleep rand(10); ## One longe running process
    print 'Thread 2 finished first';
    exit;
};

sleep rand(10); ## another long running process
print 'thread 1 finished first';
exit;