Ich habe kein Windows da, daher kann ich leider nicht testen. Aber:

Quote

Code: (dl )

$key = decode( 'console_out', $key );

erscheint mit falsch.

Decode konvertiert von einer Kodierung in Perls interne Kodierung. Von daher müsste das doch von console_in sein, nicht von console_out. Und mit dem binmode von STDIN könnte das ggf. doppelt gemoppelt sein.