[ ~/tmp ] $ perl pg_filevent 
Start to listen ...
Entered numbers()
about to send 1
Connection established
about to send 2
about to send 3
about to send 4
about to send 5
about to send 6
about to send 7
about to send 8
about to send 9
about to send 10
numbers() thread quiting ...
callback triggered
callback triggered
callback triggered

##</code><code>##

[ ~/tmp ] $ perl pg_filevent 
Start to listen ...
Entered numbers()
about to send 1
Connection established
about to send 2
about to send 3
about to send 4
about to send 5
about to send 6
about to send 7
about to send 8
about to send 9
about to send 10
numbers() thread quiting ...
callback triggered
After read
1callback triggered
After read
2callback triggered
After read
3callback triggered
After read
4[ ~/tmp ] $ 

##</code><code>##

[ ~/tmp ] $ perl pg_filevent 
Start to listen ...
Entered numbers()
about to send 1
Connection established
about to send 2
callback triggered
After read
1about to send 3
callback triggered
After read
2about to send 4
callback triggered
After read
3about to send 5
callback triggered
After read
4about to send 6
callback triggered
After read
5about to send 7
callback triggered
After read
6about to send 8
callback triggered
After read
7about to send 9
about to send 10
callback triggered
After read
8numbers() thread quiting ...
callback triggered
After read
9callback triggered
After read
10