Select Code to Download

000.01|RECD_TYPE|01-03|CHAR(3)|RECORD TYPE|check_char
000.02|DATE_TIME| 05-21|CHAR(17)|TIME STAMP|check_time
...

010.01|RECD_TYPE|01-03|CHAR(3)|RECORD TYPE|check_char 
010.02|PROP_NUMB|05-11|PIC(9999999)|PROPERTY NUMBER|check_numeric

open( $record_layout, '<', $RECORD_LAYOUT )
        or die "Open file $RECORD_LAYOUT  failed $!";
...
 
close $record_layout;

my $input_file;
my $line;        
...
          &{ $sub_routine } ($value1, $value2);
    }
}