my $entity = $parser->parse_open("mail.dat")

    if ($entity->parts() > 0)
    {
        print "IF-ZWEIG\n";
        @parts = $entity->parts();
    }
    else
    {
        print "ELSE-ZWEIG\n";
        push @parts, $entity unless @parts;    
    }