- or download this
my $thread300 = async {
while( sleep 300 ) {
...
}
};
- or download this
my $timeToExit : shared = 0;
sub shutdown{
...
...
}
};
- or download this
c:\test> \perl32\bin\perl -Mthreads -e"print $]; async{ sleep 1000 }->
+detach; sleep 5"
5.008009
c:\test>