Some scripts I've made over time using perl :)