Repository List / Contenido / utf8 / samples / promosuite / services / loader / bin / msgbody @ HEAD

#!/usr/bin/perl -w
use strict;
use FindBin;
BEGIN {
        require "$FindBin::RealBin/../../../lib/Modules.pm";
}

use Mail::Internet;
use Mail::Address;
$|=1;

my $mail = new Mail::Internet \*STDIN;

$mail->tidy_body();

$mail->print_body(\*STDOUT);