Select Code to Download

use strict;
use warnings;
...
if (length $chunk) {
    print "---chunk (leftover)---\n$chunk";
}