#!/usr/bin/perl

use strict;
use Tk;
use Tk::Pane;

my $mw = MainWindow->new();

my $pane = $mw->Scrolled(
    "Pane",
     -scrollbars => 'e',
    -bg => 'green',
    -width=>300,
    -height=>260
)->pack();

$pane->Label(
    -text => "hallo"
)->pack();

MainLoop;