Select Code to Download

my $buffer;
my $delim = '1234';

...
    $pos += $read_len;
    $read_len = read $fh, $buffer, $chunk_len, $delim_len;
}

my $buffer = '';
my $delim = '1234';

...
    }
    read $fh, $buffer, $chunk_len - length $buffer, length $buffer;
}