$ perl -MTk -le " $mw=tkinit; $s = $mw->Scrolled(q/Canvas/); print $s; print $s->Subwidget(q/scrolled/); "
Tk::Frame=HASH(0xf35ba4)
Tk::Canvas=HASH(0xf14b54)