This is a quick hack conversion of the 'CA.sh' script to perl. It fixes one