perl -MTk -e 'MainWindow->new->Button(-command => sub {sleep 10})->pack; MainLoop'