Shell Programming and Scripting

#Build label and text box
$main->Label(
       -text => "Input string below:"
    )->pack();
 $main->Entry(
        -textvariable => \$text456
         )->pack();

$main->Button(
        -text => "Search",
        -command =>
            sub {
               errchk ($text456)
               }
    )->pack();

#!C:\Perl64\bin\perl.exe
require Tk;
use Tk;
use strict;

my $text456;

my $main = MainWindow->new();
$main->configure(-title => 'Popeyes Cheap Windows Program',
                 -background => 'blue');


#build separator
my $lin=$main->Frame(-borderwidth=> 8)->pack(-side=>'top');
my $stat=$lin->Label (-width=>40, -height=>0)->pack();
$stat->configure(-text=>"Popeyes Cheap Window Program");


#Build label and text box
$main->Label(
       -text => "Enter sumtin below:"
    )->pack();
 $main->Entry(
        -textvariable => \$text456,-width=>7, -borderwidth=>6, -relief=>'sunken'
    )->pack();


#Setup Search button/execute input check and search. 
$main->Button(
        -text => "Search",
        -command =>
          sub {
           errchk ($text456);
           dosearch ($text456);
           }#end sub   
     )->pack();