Select Code to Download

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

---chunk---
one
...
---chunk---
three
four

---chunk---
one
...
four
---chunk (leftover)---
five