The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

package Parse::AFP::BDM;
use base 'Parse::AFP::Record';

use constant SUBFORMAT => (
    Data => 'a*',    # not yet parsed!
);

1;