This is the package for libtk-objscanner-perl The example may or may not work for you. A very simple demo would be: ####################### #!/usr/bin/perl -w use strict; use Tk; use Tk::ObjScanner; my $mw = MainWindow->new(); my $obj = {'foo' => 'bar'}; my $scanner = $mw->ObjScanner( caller => $obj, title=>"windows")->pack; MainLoop; ####################### If this simple program doesn't work, please bug the package. The author's demo is included for advanced functionality explication.