[FVWM] Узнать, что забиндено на хоткей.

Порылся в исходниках fvwm - такого не нашёл. 
Решил проблему тем, что написал модуль на перле, сохраняющий переданный ему через Key значения. 
Можно ещё и для Mouse добавить и т.д., но это уже дело каждого. 
Если кому интересно - вот сырой непроверенный исходник:
------
#!/usr/bin/perl -w
use strict;
use lib `fvwm-perllib dir`;
use FVWM::Module;

my $m = FVWM::Module->new(Mask => M_STRING);
my $skeys = {};

$m->addHandler(M_STRING, sub {
    shift;
    my $ev = shift; 
    my $msg = $ev->args->{'text'};
    return if not defined $msg;

    if($msg =~ /^\"Restore\s+(\w+)\s+(\w+)\s+(\w+)/){ 
        my $act = $skeys->{$1}->{$2}->{$3};
        $m->send("Key $1 $2 $3 $act") if defined $act;
    } elsif($msg =~ /^\"Key\s+(\w+)\s+(\w+)\s+(\w+)\s+(-|\w+)/){ 
        $skeys->{$1}->{$2}->{$3} = $4;
        $m->send($msg);
    }    
});
$m->eventLoop;

__END__
--------------------