Can't locate object method "ToUpper" via package "main" (perhaps you forgot to load "main"?) at \
/usr/lib/perl5/5.6.1/utf8_heavy.pl line 30