Select Code to Download

#!/usr/bin/perl -w
use strict;
use Tk;
...
            -invalidcommand=> sub{$page2->bell}
)->pack;
MainLoop;

-validatecommand=> sub{$_[1] =~/[0-9]/},