Hello,
What is the use of ioctl? how to implement it using perl?
This might help
Also the perl documentation
http://perldoc.perl.org/functions/ioctl.html
For a use see
http://perldoc.perl.org/perlfaq5.html#How-can-I-tell-whether-there’s-a-character-waiting-on-a-filehandle%3F
Never used it myself - low level io stuff.