Help for this page
if ( !Exists( $tl ) ) { $tl = $mw->Toplevel(); ... print "do nothing here\n"; }); ......
#!/usr/bin/perl use warnings; ... }