#!/usr/bin/perl -w
use X11::SendEvent;
$win = X11::SendEvent->new(win => ["Crystal Space Application"]);
$win->SendKeycode(119);