Neblokovane cteni ze STDIN - vyreseno2

[Vlasta Šeliga]

Takze, rozhodl jsem se budu ridit tento thread v diskuzi, zadosti o post 
zasilejte na mou osobni adresu ;-).

Jak se cim vic seznamuju s perlem, prisel sem na dalsi, ted uz snad 
konecne reseni (== lip to snad udelat nejde). Pokud mate nekdo jeste 
neco lepsiho, sem s tim.


#!/usr/bin/perl

require Term::Screen;
$scr = new Term::Screen;
$scr->clrscr();
do{
	$first = $scr->getch() if $scr->key_pressed() ;
}until($first eq "q" );

print "\n";