.........test.pl.......
#!/usr/bin/perl
require 'sys/ioctl.ph'

..........

this itself on running is giving error

# ./test.pl
Scalar found where operator expected at (eval 273) line 1, near "'int'  $__val"
        (Missing operator before   $__val?)
#