The code in plip.c might be a good start for an XS module - I haven't any time or anything to test it against at the moment I'm afraid

/J\