#!/usr/bin/perl --
use Tk;
use strict;
use vars qw($top $drop);
$top = tkinit( qw/ -background green  /);
$top->Label( qw/ -background red /,
-text => "Enter the scroll frame"
)->pack;
$top = $top->Scrolled(
    'Frame',
    qw/ -background pink  -scrollbars  osoe /
)->pack( qw/ -fill both -expand 1 / );
$top->Label(
-text => "Inside the scroll frame $_"
)->pack for 1 .. 12;
MainLoop;