#!/usr/bin/perl

use strict;
use warnings;
use Gtk2 -init;

my %subs = (
    # keycode => stuff
    234 => sub { print STDERR "A"},
    176 => sub { print STDERR "B"},
    174 => sub { print STDERR "C"}
    # and so on...
);

sub exe {
    my ($self, $event) = @_;
    my $code = $event -> hardware_keycode();
    $self -> set_title ($code);
    return if $code < 112; # not multimedia...
    $subs{$code} -> ();
}

my $window = new Gtk2::Window ('toplevel');
$window -> signal_connect ('key-press-event' => \&exe );
$window -> signal_connect ('destroy' => sub { Gtk2 -> main_quit;});
$window -> show_all();

Gtk2 -> main();
[download]