p/amavis: rewrite in perl (with claudius)