use strict;
use warnings;

use Tk;
use Tk::Table;
use Tk::Entry;
use Tk::Label;

my $mw = new MainWindow;


my $new_label = $mw -> Label(-text=>"Enter any character",
    -foreground=>"red",
    -font => "verdanafont 10 bold") 
-> pack(-side=>"top");

my $table_frame = $mw->Frame()->pack(-padx=>"10");

our $table = $table_frame->Table(-columns => 4,
    -rows => 5,
    -scrollbars => "o",
    -fixedrows => 1, 
    -fixedcolumns => 1,
    -relief => 'raised',
    -pady=>"20",
    -takefocus=>"0");

my $press = $mw -> Button(-text=>"Press Me",
    -command =>\\&PressMe,
    -font => "verdanafont 10 bold")
-> pack(-side=>"left",-padx=>"5",
    -ipadx=>"5");
my $row;
my $col;
for ($col=1;$col<5;$col++)
{
	my $tmp_label=$table_frame->Label(-text=>"$col")->pack();
	$table->put(0,$col,$tmp_label);
}
for($row=1;$row<6;$row++)
{
 for ($col=1;$col<5;$col++)
 {
         my $ent1 = $table -> Entry(-font=>"verdana 10")
            -> pack(-ipady=>"15");
            $table->put($row,$col,$ent1);
 }
}
$table->pack();

MainLoop;

sub PressMe
{
 for($row=0;$row<5;$row++)
 {
     for ($col=0;$col<4;$col++)
     {
        my $name = $table->get($row,$col);
        my $val = $name->get();
        if ($val =~ m/[a-zA-Z0-9]/)
        {
my $response=$mw -> messageBox(-type=>"ok", -message=>"alphanumeric entered",-icon=>"info",-title=> "info!!");
        }
     }
 }
}