use Tk;
my $mw = tkinit();
my $f = $mw->Scrolled( 'Frame' )->pack;
$f->Button ( -text=> $_ )->pack for ( 1..50 ) ;
$mw->WidgetDump;
$mw->MainLoop;
__END__