Removed script as there was no easy way to acheive my goal in perl