| Current Path : /var/www/web-klick.de/dsh/50_dev2017/1300__perllib/scripts/ |
Linux ift1.ift-informatik.de 5.4.0-216-generic #236-Ubuntu SMP Fri Apr 11 19:53:21 UTC 2025 x86_64 |
| Current File : /var/www/web-klick.de/dsh/50_dev2017/1300__perllib/scripts/mm.pl |
use MIME::Parser;
use Data::Dumper;
my $p = MIME::Parser->new();
open(FFILE,"</zzz.box");
my $text = join("",<FFILE>);
close(FFILE);
my $rr = $p->parse_data($text);
print Dumper($rr->parts(2)->parts(0)->header());
#print Dumper($rr);