#!/usr/bin/perl
#The \033[ stuff only works in Xterm

print ("\033[2J"); #<- Clears screen
print ("\033[6;0H"); #<- Repositions cursor at 6 down 0 from the left
print ("Press C to continue\n");
print ("Press Q to quite\n");

do{
	print ("\033[s"); #<-- Saves Cursor Position
	print ("\033[3;6H",`date`); #<-- Puts date and time above "Press C to continue"
	print ("\033[u"); #<-- Restores Cursor Position
}until (exists $input[0]);
if ( $input eq Q ){
        exit;
}