DB<232> use strict;use warnings; print $XXX
lobal symbol "$XXX" requires explicit package name 
(did you forget to declare "my $XXX"?) at (eval 263)
[c:/Perl_524/lib/perl5db.pl:737] line 2.