use Tk;
$top = new MainWindow;
$b = $top->Button(-st => "disa")->pack;
warn $b->cget(-state);
MainLoop;