Добрый день!

Подскажите, как реализовать программу, которая бы не ожидая ввода в нужный момент знала о нажатии на клавиатуру.
Поясню. Вот, например:

my $k;
while (1) {
$k=<STDIN>;
chomp($k);
if ($k eq "q") {exit};
# А тут нужно вставить код, который бы выполнялся постоянно, чтобы STDIN не задерживало цикл.
};

В этом примере, когда дело дойдёт до STDIN произойдет ожидание ввода. И пока я не введу что-либо, да ещё и плюс ENTER - ничего дальше не сдвинется. А мне нужно, чтобы цикл вращался и не затыкался на STDIN, но когда будет нажата клавиша, чтобы я знал об этом.
Как это реализовать?

Заранее благодарен,
Вячеслав