Help for this page

Select Code to Download

Select or download this

use strict;
use MIME::Parser; 
...
$parser->output_under("./"); #directory where to store the components
my $entity = $parser->parse(\*STDIN) or die "parse failed\n";
$entity->dump_skeleton;

Select or download this
```
$perl abovecode.pl < mail.txt
```