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