E:\new>perl -MConstants -wle"print for keys %Constants::;;print XX+YY"
Name "main::XX" used only once: possible typo at -e line 1.
import
YY
EXPORT
XX
BEGIN
print() on unopened filehandle XX at -e line 1.


E:\new>perl -MUNIVERSAL -MConstants -wle"print for keys %Constants::;;print XX+YY"
import
YY
EXPORT
EXPORT_FAIL
EXPORT_OK
XX
BEGIN
1

##</code><code>##

require Exporter;
*import = \&Exporter::import;
@EXPORT_OK = qw(isa can);

##</code><code>##

E:\new>perl -MConstants -wle"print for keys %UNIVERSAL::;;print XX+YY"
Name "main::XX" used only once: possible typo at -e line 1.
import
can
isa
VERSION
print() on unopened filehandle XX at -e line 1.