#!/usr/bin/perl

use warnings;
use strict;

use Tk;

my $mw = Tk::MainWindow->new();
$mw->geometry("+400+300");
my $labelframe = $mw -> Labelframe(-height => 100, -width => 150, -text => 'Test');
$labelframe->pack(-padx => 5, -pady => 5, -fill => 'x');
$mw->MainLoop();