Thanks to Roger, pg and Fletch... I got the thing working and am working to collaborate it with another application..
I thought it as a cool use for perl and I 've posted it here.