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