A collection of PERL scripts I use