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

##</code><code>##

Use of uninitialized value in string eq at /usr/lib/perl5/vendor_perl/5.8.8/X11/Protocol.pm line 535.
Use of uninitialized value in string eq at /usr/lib/perl5/vendor_perl/5.8.8/X11/Protocol.pm line 536.
Use of uninitialized value in string eq at /usr/lib/perl5/vendor_perl/5.8.8/X11/Protocol.pm line 536.
Use of uninitialized value in pack at /usr/lib/perl5/vendor_perl/5.8.8/X11/Protocol.pm line 541.
Use of uninitialized value in pack at /usr/lib/perl5/vendor_perl/5.8.8/X11/Protocol.pm line 541.
Use of uninitialized value in pack at /usr/lib/perl5/vendor_perl/5.8.8/X11/Protocol.pm line 541.
Use of uninitialized value in pack at /usr/lib/perl5/vendor_perl/5.8.8/X11/Protocol.pm line 541.
Use of uninitialized value in pack at /usr/lib/perl5/vendor_perl/5.8.8/X11/Protocol.pm line 541.
Use of uninitialized value in pack at /usr/lib/perl5/vendor_perl/5.8.8/X11/Protocol.pm line 541.
Use of uninitialized value in string eq at /usr/lib/perl5/vendor_perl/5.8.8/X11/Protocol.pm line 535.
Use of uninitialized value in string eq at /usr/lib/perl5/vendor_perl/5.8.8/X11/Protocol.pm line 536.
Use of uninitialized value in string eq at /usr/lib/perl5/vendor_perl/5.8.8/X11/Protocol.pm line 536.
Use of uninitialized value in pack at /usr/lib/perl5/vendor_perl/5.8.8/X11/Protocol.pm line 541.
Use of uninitialized value in pack at /usr/lib/perl5/vendor_perl/5.8.8/X11/Protocol.pm line 541.
Use of uninitialized value in pack at /usr/lib/perl5/vendor_perl/5.8.8/X11/Protocol.pm line 541.
Use of uninitialized value in pack at /usr/lib/perl5/vendor_perl/5.8.8/X11/Protocol.pm line 541.
Use of uninitialized value in pack at /usr/lib/perl5/vendor_perl/5.8.8/X11/Protocol.pm line 541.
Use of uninitialized value in pack at /usr/lib/perl5/vendor_perl/5.8.8/X11/Protocol.pm line 541.