[0] Perl> use threads; use threads::shared;;
[Bad file descriptor] Perl> 
async{ sleep 5; print, sleep 1 for 1.. 10 }->detach; 
print, sleep 1 for 1.. 20;;
1
2
3
4
5
1
6
2
7
3
8
9
4
10
5
6
11
7
12
8
13
9
14
10
15
16
17
18
19
20