Select Code to Download

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