Work I have done in perl