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

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

$win->SendString( "testing", [ "Return" ] );
$win->SendString( "user", [ "Return" ], "joe", [ "9/1" ] );
$win->SendKeycode( 119 );