use Tk;
use Tk::Scrollbar;

my $mw = new MainWindow;

my $f = $mw -> Frame() -> pack;
$f->Button ( -text=> $_ )->pack for ( 1..50 ) ;
$f->Scrollbar () -> pack ;

MainLoop;