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

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

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

   my $dialog = $mw->DialogBox(
      -title => "Login",
      -buttons => [qw/Login Cancel/]
   );

   my $labFrame = $dialog->add('LabFrame', 
      -labelside => "acrosstop",
      -label => "Login Form" 
   )->pack;

   ## 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
   );

   if ($dialog->Show() eq "Login") {

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