eam

#!/opt/local/bin/perl

use warnings;
use strict;
use Term::InKey;
use Tk::Table;

my ($face, $memp, $x, $y, $clicked_x, $clicked_y, $done, $child, @src, @mem, @breaks);
my %slashmap = (
		'right' => 'up',