Help for this page

Select Code to Download

Select or download this

use Text::Wrap;

...
 $wrapped =~ s/\n/\r\n/g;
 print $wrapped;
}