use Inline "C";

open my $dev, "<", "/dev/input/event14" or die $!;
grab($dev->fileno, 1);

__END__
__C__

#include <linux/input.h>

void grab(int fd, int act) {
   int r =  ioctl(fd, EVIOCGRAB, act);
   printf("grab: %d\n", r);
}