Perl: Ooops, checked in test script