Re-write cloak-uncloak with perl.