#!/usr/bin/perl

use warnings;
use strict;

use X11::GUITest qw(SendKeys);
use English;

$OUTPUT_AUTOFLUSH = 1;
print "Please enter something: ";
SendKeys("Default entry");
my $input = <STDIN>;
$OUTPUT_AUTOFLUSH = 0;
chomp($input);

print "\nYour input was: '$input'.\n\n";