use Term::ReadKey;

while(1)
{
        ReadMode(4);    # Set raw mode.
        while(not defined($firstkey=ReadKey(-1)))
        {
                print localtime();
                print "\n";
        }
        ReadMode(0);    # Restore original mode. 


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