#!/usr/bin/perl
 use strict;
 use lib qw(.);
 use Term::InKey;

 my ($x,$bullet);

 $|=1;

 &Clear;

 print "Hit a key: ";
 $x = &ReadKey;
 &Clear;

 print "You typed $x";