use constant PRE_5_8 => $[ < 5.008;

binmode $fh if PRE_5_8;