#!/usr/bin/perl

use strict;
use warnings;

binmode STDIN;
binmode STDOUT;

# Ausgabe der Bytes utf8-kodiertes ä
printf("Oktetten ä: %s\n", pack("CC", 0xC3, 0xA4));

# lese STDIN
print "Lese aus der Pipe:\n";
while( read(STDIN, my $bin, 1)){
    printf "%X\n", unpack("C", $bin);
}