use warnings;
use strict;

use Tk;

use POE qw (Loop::TkActiveState);

if(! defined($poe_main_window)) {
    warn "\$poe_main_window not defined";
}

##</code><code>##

$ /usr/local/ActivePerl-5.14/bin/perl -c mactst.pl
mactst.pl syntax OK

##</code><code>##

$ /usr/local/ActivePerl-5.20/bin/perl -c mactst.pl
mactst.pl syntax OK
. (1):
 0 0x1030c4968   IV f=00000001 undef(1)
SV = IV(0x1030c4958) at 0x1030c4968
  REFCNT = 1
  FLAGS = ()
  IV = 0
Abort