The same output in Perl test and in script