Developing Test Harness in Perl: created golds