Select Code to Download

Variable "$text" will not stay shared at file line 1

(W closure) An inner (nested) named subroutine is referencing a
lexical variable defined in an outer named subroutine.

...
reference variables in outer subroutines are created, they
are automatically rebound to the current values of such variables.

sub do_top {
    if ( !Exists($tl) ) {
...
        $tl->raise;
    }
}