use warnings; use strict; use Tk; use POE qw (Loop::TkActiveState); if(! defined($poe_main_window)) { warn "\$poe_main_window not defined"; }