#!/usr/local/bin/perl -w

use Tk;
require Tk::LabEntry;

my $mw = MainWindow->new;

my $canvas_total = 'Entry Text';
my $le_t_text    = 'The Label';

$le = $mw->LabEntry(-textvariable =>\$canvas_total, 
               -labelVariable => \$le_t_text,
               -labelPack => [-side => 'left']);

$le->pack(-expand => 1, -fill => 'x');

MainLoop;