Select Code to Download

 
#!/usr/bin/perl 

...
    Type     => 'text/plain',
    Encoding => 'quoted-printable',
)->as_string;

 
Content-Type: text/plain
Content-Disposition: inline
...

filler text to get the first char of line 2 to be a dot______ http://g
+oogle=
.com=

 
perl -MMIME::Entity -e 'print MIME::Entity->build(Encoding => "quoted-
+printable", Data     => "some text\n.\nmore text")->as_string;'

 

Content-Type: text/plain
...
=2E
more text=