use strict;
use Tk;
use Tk::LabFrame;

if (authenticateUser()) {
   print "protected statement called\n";
}

sub authenticateUser
{
   my ($user, $passwd, $button);
   my $mw = MainWindow->new;

   my $labFrame = $mw->LabFrame( 
      -labelside => "acrosstop",
      -label => "Login Form" 
   )->pack(qw/-side top -padx 10/);

   ## Internal Frame for padding with Labeled Frame
   my $iFrame = $labFrame->Frame->
      pack(qw/-padx 10 -pady 10/);

   $iFrame->Label(-text => "User: ")->grid(
      $iFrame->Entry(-textvariable => \$user)
   );
   $iFrame->Label(-text => "Password: ")->grid(
      $iFrame->Entry(
         -show => '*',
         -textvariable => \$passwd
      ), -pady => 5
   );

   my $buttons = $mw->Frame->
      pack(qw/-side bottom -pady 5/);

   $buttons->Button(
      -text => "Login",
      -command => sub { $button = "Login"; }
   )->pack(qw/-side left -padx 10/);

   $buttons->Button(
      -text => "Cancel",
      -command => sub { $button = "Cancel"; }
   )->pack(qw/-side left -padx 10/);

   ## Prevents the script from moving past this point
   ## until the $button variable has been set.
   $mw->waitVariable(\$button);

   if ($button eq "Login") {

      ## Authenticate user - assume check passed
      print "$user/$passwd authenticated!\n";
      return 1;
   }
   return 0
}