Select Code to Download

use Text::Flow;
use Font::TTFMetrics;
...

my ($reflow) = $flow->flow($text);
print $reflow;

asdfk lasdjf asd flkasd fkjasdf la ksdf 
asdlkja sdkf laksdf laksdj ajsd lkasdf 
...
a sdkjf laksdjf kasdf lkasdfkja sdflka 
sdf asd flkajds lfka sdflak sdflkajsd 
fkjal j adsfkj alsdf ads Some string