A simple perl script to update afraid.org