require "linux/input.ph";

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