#!/usr/bin/perl
use Tk;
use Tk::Pane;

my $mw = tkinit;
my $f = $mw->Frame(-bg=>'black')->pack;
my $p = $f->Scrolled('Pane', -scrollbars => 'osoe',)->pack;
$p->Label(-text => 'long label long label long label long label long label')->pack;

MainLoop;