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

##</code><code>##

$perl abovecode.pl < mail.txt