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

#@foo = { "xterm" , "};
#@foo = { "Terminal" , "" };
#$win = X11::SendEvent->new(win=>$foo);
#$win = X11::SendEvent->new();

$x11 = X11::SendEvent->new();
$win = $x11->FindWin("Terminal");
$win->SendString("testing", ["Return"]);
print "\n$win\n";

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