Ah, but you can retrofit that.

use constant PRE_5_8 => $[ < 5.008;

binmode $fh if PRE_5_8;
[download]

You can also use the constant for the BEGIN block if you are so inclined, of course (provided you define it before the block).

Makeshifts last the longest.