use strict;
use warnings;

use Tk;
use Tk::Entry;

my $mw = new MainWindow;


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

my $ent=$mw->Entry()->pack();
my $press = $mw -> Button(-text=>"Press Me",
    -command =>\&PressMe,
    -font => "verdanafont 10 bold")
-> pack(-side=>"left",-padx=>"5",
    -ipadx=>"5");


MainLoop;

sub PressMe
{
    
	        
                my $val = $ent->get();
		if ($val =~ m/[a-zA-Z0-9]/)
		{
			 my $response=$mw -> messageBox(-type=>"ok", -message=>"alphanumeric entered",-icon=>"info",-title=> "info!!");
#$response->attributes(-topmost=>0);
		 
		}
    return;
}