#!/usr/bin/perl -w

use strict;
use MIME::Parser;
use MIME::QuotedPrint;
use CGI::Carp qw(fatalsToBrowser);

my $infile 		= $ARGV[0];
my $pfad 		= $ARGV[1];
my $top_entity;
my $prefix 		= $ARGV[2];

# Datei mit MIME-Nachricht einlesen und parsen
$top_entity = &parse_MIME_Stream($infile);

exit;

sub parse_MIME_Stream #(Eingabedatei)
  {
  my $file = shift;
  my $parser = '';

  die "NO FILE  $!" unless defined $file;

  # Neues Parser-Objekt
  # Daten auf Festplatte speichern
  $parser = MIME::Parser->new();
  $parser->output_to_core('NONE');
  $parser->output_dir($pfad);
  $parser->output_prefix($prefix);

  open(INPUT,$file) or die $!;

  my $top_entity = $parser->read(\*INPUT);

  close(INPUT) or die $!;
  return $top_entity;
  }