Line # Revision Author
1 296 ahitrov #!/usr/bin/perl -w
2 use strict;
3 use FindBin;
4 BEGIN {
5 require "$FindBin::RealBin/../../../lib/Modules.pm";
6 }
7
8 use Mail::Internet;
9 use Mail::Address;
10 $|=1;
11
12 my $mail = new Mail::Internet \*STDIN;
13
14 $mail->tidy_body();
15
16 $mail->print_body(\*STDOUT);