On topic: The Wednesday Challenge

[Yitzchak Scott-Thoennes]

On Wed, August 15, 2007 2:47 pm, Yitzchak Scott-Thoennes wrote:
> binmode(STDIN);

> map ++$byte{$_}, unpack "(Z)*", $_ while <>;

I suppose that should either be while <STDIN> and

   binmode(STDIN);
   binmode(STDOUT);

or the binmode be replaced with

   use open IO => ":bytes";