10 lines
179 B
Perl
10 lines
179 B
Perl
|
#!/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();
|