use strict;
use warnings;
use English;

use Tk;
use POE;

print STDERR scalar(localtime()), "\n";

##</code><code>##

c:\strawberry\perl\bin\perl -w .\tst02.pl
Use of uninitialized value $id in hash element at c:/strawberry/perl/site/lib/Tk/After.pm line 39.