Select Code to Download

#!/usr/bin/perl -w
use MIME::Entity;
...
    open (MAIL,"|/usr/sbin/sendmail -t -oi");
    $top->print(\*MAIL);
    close MAIL;

use MIME::Parser;

...

return $content;
}

perl strip.pl