package TkPluginsConf; use warnings; use strict; use Milkbone; use Milkbone::PluginsConf; register_hook("dlg_plugins", sub { my $parent = $ARGS{-parent}; $parent->MBPluginsConf->init; }); 1;