#define EVIOCGRAB               _IOW('E', 0x90, int)                    /* Grab/Release device */

##</code><code>##

open my $dev, "<", "/dev/input/event14" or die $!;
my $r = ioctl $dev, 0x90, 1;
print "$!\n" unless defined $r;

##</code><code>##

require "linux/input.ph";

open my $dev, "<", "/dev/input/event14" or die $!;
my $r = ioctl $dev, EVIOCGRAB(), 1;
print "$!\n" unless defined $r;