#!/usr/bin/perl -w
use strict;
use Tk;
use Tk::LabFrame;
use Tk::Pane;

my $self = {};
$self->{'mw'} = tkinit();

my $fr_lframe = $self->{'mw'}->LabFrame(-label => 'Friends')
->pack(-side => 'bottom', -fill => 'x');

$self->{'wgt'}->{'fr_frame'}  = $fr_lframe->Scrolled('Frame', -scrollbars => 'oe', -background => 'red')
->pack(-side => 'top', -fill => 'both', -expand => 1);

update_friends($self);

MainLoop;

sub update_friends {
  my $self = shift;
  $self->{'wgt'}->{'fr_frame'}->Label(-text => 'test')->pack(-side => 'left');
}