This is actually VERY easy to do, if you use some of the options to LABEL.
Add
,-width=>15,-anchor=>'w' to your Label definitions
and it will look much better.
Modified code:
#!/usr/bin/perl
use strict;
use Tk;
my $btypes;
my $locations;
my $bstats;
my $mw;
$mw = MainWindow->new;
$mw->geometry("400x300");
$mw->title("First App");
my $frmTop = $mw->Frame(-bd => 2,-relief => 'ridge')->pack(-side => 't
+op', -fill => 'x', -pady => 3);
# Location label/entry
my $frmLocations = $frmTop->Frame(-bd => 2)->pack(-side => 'top', -fil
+l => 'y');
my $lblLocationsID = $frmLocations->Label(-text => "Locations",-width=
+>15,-anchor=>'w')->pack(-side => 'left');
my $edtLocationsID = $frmLocations->Entry(-textvariable => \$locations
+,-background => 'white')->pack(-side => 'left');
# type label/entry
my $frmLocations = $frmTop->Frame(-bd => 2)->pack(-side => 'top', -fil
+l => 'y');
my $lblBtypeID = $frmLocations->Label(-text => "Types",-width=>15, -an
+chor=>'w' )->pack(-side => 'left');
my $edtBtypeID = $frmLocations->Entry(-textvariable => \$btypes,-backg
+round => 'white')->pack(-side => 'left');
MainLoop;