Select Code to Download

use Text::Wrap;
local $| = 1;
...
  print $wrapped;
  print "\n-----------\n\n";
}

Text::Wrap info: 
Subverion:  modern 
...

This shouldn't happen at /usr/local/lib/perl5/5.18.0/Text/Wrap.pm line
+ 92.