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.