One test in perl