#!/usr/bin/perl
use warnings;
use strict;
use X11::SendEvent;
use X11::WMCtrl;
use Data::Dumper;

my $wmctrl = X11::WMCtrl->new;
my @windows = $wmctrl->get_windows;
print Dumper([\@windows]),"\n";

$wmctrl->activate('foo');

$|++;
my $win = X11::SendEvent->new( win => [ 'foo' ], debug => 1 );


for(1..100){
$win->SendString( "testing", [ "Return" ] );
$win->SendString( "user", [ "Return" ], "joe", [ "9/1" ] );
$win->SendKeycode( 119 );
$win->SendString( "zentara", [ "Return" ], [ "Return" ] );
}

<>;