#!/usr/bin/perl -w

use Term::ReadKey;
use strict;

for (my $i=0;$i<10;$i++) {
    sleep 2;
    ReadMode('cbreak');
    if (defined (my $char = ReadKey(-1)) ) {
        print "Das Zeichen war $char\n";
    } else {
        print "nichts gedrückt\n";
    }
    ReadMode('normal');
}
sleep 3;