$top->Entry(
                -width        => 20,
                -textvariable => \$data,
                -validate     => 'key',
                -vcmd       => sub {$_[1] =~ /[ab]/}
            )->pack( -side => 'left' );