Select Code to Download

use Tk;

...
$toplevel->transient($mw);

MainLoop;

use strict;
use Tk;
...
       $$ySR = $rootY;
    } 
}