Nice! In a fit of jealousy for not having thought of this myself I'll point out that the default column width for Text::Wrap is 76 characters. So an amended line if the stated 80 is the real case.

use Text::Wrap;
$Text::Wrap::columns = 80;
# and continue as above...
[download]