[ ~/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 ] $