Re^2: Tk::Error: bad window path name "all" ( Scrolled()->Subwidget('scrolled') )

See Tk::Scrolled it provides an accessor

$ 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)
[download]

Comment on Re^2: Tk::Error: bad window path name "all" ( Scrolled()->Subwidget('scrolled') ) Download Code