Select Code to Download

#!/usr/bin/perl
use strict;
...
record Len? : 49 decimal 
not right first byte, ASCII '1':1

my $next_byte_index = process_record (\$data, $start_byte_index);