binmode STDIN;
# neuere Perl-Versionen
STDIN->binmode('raw');