### Test.pl
use KMenueTest;

use Tk;
my $w = KMenueTest->new;

MainLoop;