some Perl scripts to simplify my life