use warnings;
use strict;
use Tk;

use POE;

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
Free non-Callback 1011f4aa0 RV=0 during global destruction.
$ 

##</code><code>##

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