Perl requires testcase