Utils I made in perl