or download this
[20:02:40.59] P:\test>perl -MClass::HPLOO -lwe"print $Class::HPLOO::VE
+RSION"
Scalar value @ret[0] better written as $ret[0] at c:/Perl/site/lib/Cla
+ss/HPLOO.pm line 784.
...
Use of uninitialized value in numeric le (<=) at c:/Perl/site/lib/Clas
+s/HPLOO.pm line 602.
Use of uninitialized value in substr at c:/Perl/site/lib/Class/HPLOO.p
+m line 716.
print() on unopened filehandle 0.19 at -e line 1.