Select Code to Download

package My_Stuff;

...
);

1;

package Record_Stuff;

...
    return $rec_struct;
}
1;

use strict;
use Data::Dumper;
...
use Record_Stuff;

print Dumper Record_Stuff::get_record_structure();

$VAR1 = [
        title,
...
         street,
        'A40',
];