Doing a non-standard ioctl in Perl

[Roger Burton West]

For various reasons, I want to do an EVIOCGRAB ioctl.

perldoc -f ioctl tells me "require sys/ioctl.ph", and gives all sorts of
scary warnings. But EVIOCGRAB isn't in sys/ioctl.ph. What's the approved
way of doing this? That's the only ioctl I'm likely to want to use in
this program, so I don't particularly fancy converting a whole bunch of
others that I'm not going to need.

If it helps:

linux/input.h:#define EVIOCGRAB		_IOW('E', 0x90, int)

Roger