#!/usr/bin/perl
use strict;

use X11::Protocol;

my $x = X11::Protocol->new;

my %event = (
  name		=> 'KeyPress',
  event		=> 97,
  state		=> 0,
  code		=> 2,
  event_x	=> 0,
  event_y	=> 0,
  detail	=> 0,
  same_screen	=> 1,
  root		=> $x->{'root'},
  child		=> 'None',
  time		=> 1029571004,
  root_x	=> 0,
  root_y	=> 0,
  sequence_number	=> 0,
);

my $event_string = $x->pack_event(%event);
$x->SendEvent(0x1800002, 1, 0xfff, $event_string);