my $Status;
my $lblStatus = $mw->Label(-textvariable=>\$Status)->pack();