use strict;
use Tk;

my use Tk;
use strict;

my $mw = MainWindow->new;
my $f = $mw->Frame->
   pack(-padx => 5, -pady => 5);

my $message = $f->Label->
   grid(-columnspan => 2, -sticky => 'ew');

my $userEntry = $f->Entry;
$f->Label(-text => "User:")->
   grid($userEntry, -sticky => 'e');
 
my $passwdEntry = $f->Entry(-show => '*');
$f->Label(-text => "Password:")->
   grid($passwdEntry, -sticky => 'e');

my $button = $f->Button(
   -text => "Login",
   -command => [\&login, $userEntry, $passwdEntry, $message]
)->grid(-columnspan => 2, -pady => 3);

MainLoop;

sub login
{
    my ($userE, $passE, $msg) = @_;

    if ($userE->get ne "eric" || $passE->get ne "stigisdead") {
       $userE->delete(0, 'end');
       $passE->delete(0, 'end');
       $msg->configure(-text => "Login Failed!");
    }  
    else {
       $msg->configure(-text => "Login Successful");
    }
}