Have a look at ioctl for a way to roll your own in perl. I agree that this would make a handy CPAN module when you get it working. Good luck!