#! /usr/bin/perl
use Term::ReadKey;
ReadMode 4; # Turn off controls keys

open(FH,'>',"file");
$|=1;
## To read 10 characters and write into the file

$i=0;
## for reading 10 characters....
while ( $i<10)
{
    until (defined ($key = ReadKey(-1))) {}
    print FH "$key\n";
    $i++;

}
close FH;
ReadMode 0; # Reset tty mode before exiting