use Term::ReadKey;

while(1)
{
        while(not defined($firstkey=ReadKey(-1)))
        {
                print localtime();
                print "\n";
        }


        chomp($a=<STDIN>);
       
        if($a eq 'q')
        {
                exit;
        }
}