QA:Testcase Perl sanity