Select Code to Download

#!/usr/bin/env perl -T

...
    my $mw = shift;
    return join $widget_list_joiner => $mw, $mw->children;
}

$mw->name : pm_tk_top_list
$mw->interps : 
...
        Tk::Toplevel=HASH(0x7fecba9493b0)
        Tk::Frame=HASH(0x7fecba9a3900)
        Tk::Frame=HASH(0x7fecba9a3180)

$mw->name : pm_tk_top_list #3
$mw->interps : 
...
        Tk::Toplevel=HASH(0x7fbb309493b0)
        Tk::Frame=HASH(0x7fbb309a3900)
        Tk::Frame=HASH(0x7fbb309a3180)