perl -dw Ablation.pm