Tastaturabfrage mit Perl

[Rebell]

Hallo, ich hab ein großes Problem und schon durchgegoogelt.
Ich möchte mit Perl einzelne Zeichen der Tastatur abfangen, aber OHNE auf eine Enter zu warten.

$eingabe = <>; # wartet auf eine Enter
$eingabe = getc(); # wartet auch auf ein Enter

Das muss doch möglich sein?

[Rebell]

#!/usr/bin/perl

use Term::ReadKey;

ReadMode ('cbreak');
while (1) {
$key = ReadKey(0);
$text .= $key;
print $key;
if ($key =~ /^\n/ig) {
print "you write: $text";
print "\n";
}
}
ReadMode('normal');