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');