perl Task-Weaken