9 lines
179 B
Perl
Executable file
9 lines
179 B
Perl
Executable file
#!/usr/bin/perl
|
|
|
|
use MIME::Parser;
|
|
|
|
my $parser = new MIME::Parser;
|
|
|
|
$parser->output_under(".");
|
|
$entity = $parser->parse(\*STDIN) or die "parse failed";
|
|
$entity->dump_skeleton();
|