Select Code to Download

my $thread300 = async {
    while( sleep 300 ) {
        ...
    }
};

my $timeToExit : shared = 0;
sub shutdown{
...
        ...
    }
};

c:\test> \perl32\bin\perl -Mthreads -e"print $]; async{ sleep 1000 }->
+detach; sleep 5"
5.008009

c:\test>