Perl: Cosmetics: Better error messages
Perl: Warning fix in test