Select Code to Download

use constant BLOCKLENGTH => 32768; # > length of any tag
$\ = \BLOCKLENGTH;
...
};
# print whatever's left
print $buffer;