Create generic test in perl