| 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); |