require Tk;
use Tk;

$mw = MainWindow->new();
$mw->Entry( -textvariable => \$content , 
            -validate => 'key' ,
            -validatecommand => ( $_[1] =~ /^go / ),
            -invalidcommand => sub { print "ERROR.\n", $mw->bell() } )->pack() ;

MainLoop;