##
package Business::Logic::Orders;
our $line_data = [
{ catalog_id => '12L' } ,
{ price => '6L*2' }
];
1;
##
##
###
open D, 'data-file.dat';
while () {
Parse::FixedLength::Parse(\%line_parse, $Business::Logic::Orders);
DBIx::Recordset->Insert({ \%dsn }, \%line_parse} );
}