$frame = $lower_frame->Scrolled('Frame',   -scrollbars => "e", -height => '300')->pack(-fill => "x",-anchor=>'w');

##</code><code>##

$frame->yviewMoveto(0);

##</code><code>##

$frame->yview(moveto => 0);