{
    my $new_toplevel;

    sub window {
        ....
    }

}