use Tk::WidgetDump;
use Tk::ObjScanner;

# and later

Tk::ObjScanner::scan_object($the_widget_or_window_to_inspect);