Perl scripts I use to do tasks