I know you said commandline, but if you can use Gtk2, you might like this. It's much cleaner. 
#! /usr/bin/perl -w
use strict;
use Gtk2::Gdk::Keysyms;
use Glib qw/TRUE FALSE/;
use Gtk2 -init;

my $window = Gtk2::Window->new ('toplevel');
$window->signal_connect (delete_event => sub { Gtk2->main_quit });
$window->signal_connect('key-press-event' => \&show_key);
    
     my $label = Gtk2::Label->new();
     $label->set_markup("<span foreground=\"blue\" size=\"x-large\">Ty
+pe something on the keyboard!</span>");
    
$window->add ($label);
$window->show_all;
$window->set_position ('center-always');

Gtk2->main;

sub show_key {

my ($widget,$event,$parameter)= @_;

my $key_nr = $event->keyval();

    #run trough the available key names, and get the values of each,
    #compare this with $event->keyval(), when you get a match exit the
+ loop
    foreach my $key  (keys %Gtk2::Gdk::Keysyms){
    
        my $key_compare = $Gtk2::Gdk::Keysyms{$key};
        
        if($key_compare == $key_nr){
        #print ("You typed $key \n");
        $label->set_markup("<span foreground=\"blue\" size=\"x-large\"
+>You typed a</span><span foreground=\"red\" size=\"30000\"><i><tt> $k
+ey</tt></i></span><span foreground=\"blue\" size=\"x-large\"> which h
+as a numeric value of </span><span foreground=\"red\" size=\"30000\">
+<i><tt> $key_nr!</tt></i></span>");
        $widget->set_title("key pressed: $key -> numeric value: $key_n
+r");
        last;
        }
    }
    #good practice to let the event propagate, should we need it somew
+here else
    return FALSE;
}

[download]
I'm not really a human, but I play one on earth. Cogito ergo sum a bum

In reply to Re: PgUp Home by zentara
in thread PgUp Home by halfcountplus

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.