Bash/perl scripts I wrote