Select Code to Download

Select or download this

# Plain text output:
 This is some text to test the wrapping feature of Text::Correct's wra
+p(), using MIME::Lite to create the message.
...
 &lt;p&gt;This is some text to test the wrapping feature of Text::Corr
+ect's wrap(), using MIME::Lite to create the message.&lt;/p&gt;

&lt;p&gt;I really just want to have two lines of data to test the func
+tions and want them both to be over the 72 character limit.&lt;/p&gt;

Select or download this

# Plain text output:
  This is some text to test the wrapping feature of Text::Correct's
...
&lt;p&gt;I really just
want to have two lines of data to test the functions and want them bot
+h
to be over the 72 character limit.&lt;/p&gt;

Select or download this

Content-Type: text/plain

...
&lt;p&gt;I really justME::Lite to create the message.&lt;/p&gt;
want to have two lines of data to test the functions and want them bot
+h
to be over the 72 character limit.&lt;/p&gt;

Select or download this

#!/usr/local/bin/perl -w

...
open(OUTFILE,">$emailoutput") or die "Unable to open $emailoutput: $!"
+;
$msg->print(\*OUTFILE);
close OUTFILE;