#!/usr/bin/perl -w 
#use strict;
use X11::SendEvent;

@foo = { "xterm" };
$x11 = X11::SendEvent->new();
$win = $x11->FindWin("xterm");
print "$win";

#$win->SendString("HELLO");
#$win = X11::SendEvent->new(win => "xterm" debug);
#$win->SendString("testing", ["Return"]);
#$win->SendString("user", ["Return"], "joe", ["9/1"]);

# ./test.pl 
Odd number of elements in anonymous hash at ./test.pl line 5.
Use of uninitialized value in pattern match (m//) at /usr/perl5/site_perl/5.8.4/X11/SendEvent.pm line 79.