Help for this page
use Tk; require Tk::ExecuteCommand; ... )->pack( -side => 'right' ); MainLoop;
print "Starting..."; sleep 10; print "end\n";