#!/usr/bin/perl
use MIME::Parser;


1: $txtfile ='mail/1.txt';
2: $parser = MIME::Parser->new();
3: open(INPUTSTREAM,"<$txtfile") or die $!;
4: $entity = $parser->read(\*INPUTSTREAM);

5: $parser->output_to_core();
6: $pfad= '/test';
7: $parser->output_dir($pfad);
8: $parser->output_prefix("msg1");
9: #$entity->print_header(\*STDOUT);
10: #$entity->print_body(\*STDOUT);