Select Code to Download

use Win32::Console ;

...
  print "--Mode change from $o\[" . unpack(q(H2),chr($o)) . " ]  to  "
     . $cons->Mode() . "[". unpack(q(H2),chr($cons->Mode())) . "]\n";
}