Select Code to Download

#!perl
use strict;
...
         pfaut        => q[   pfaut(      'A' x $_) for 0 .. 11;],
    });
}

Benchmark: running demerphq, gotoit, pfaut, template, 
each for at least 10 CPU seconds...
...
gotoit   5002/s       4%       --     -16%     -46%
template 5935/s      23%      19%       --     -36%
pfaut    9265/s      93%      85%      56%       --