Anonymous

#!/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"]);


Use of uninitialized value in pattern match (m//) at /usr/perl5/site_perl/5.8.4/X11/SendEvent.pm line 79.
Can't use an undefined value as an ARRAY reference at /usr/perl5/site_perl/5.8.4/X11/Keyboard.pm line 99.