use MIME::Parser;

my $parser = new MIME::Parser;

my $output = "/tmp/mimex";

$parser->output_dir($output);
my $entity = $parser->read(\*STDIN);


open CSVFILE

$csv = Text::CSV->new();
$processed = 0;

#print "test4\n";

while (<CSVFILE>)
{


        $line = $_;
        if($line =~ /^$/)
        {
        }
        elsif ($indata ==0)
        {
        @data = split(/[| ]/,$line);


                if($data[0] eq 'Subject:')
                {