$oldtty = `stty --save`;
system('stty raw -echo');