Add testcase for cascade delete in perl