Practical Perl Tools: Random Acts of Kindness