READMODE or READKEY from a file

[sebtks]

I have a simple perl script as follow:

  use Term::ReadKey;
 
  print "Enter name: ";
  ReadMode 2; #Turn off keyboard echo
  $name = <>;
  ReadMode 0;
  print "$name \n";

Instead of read the input from keyboard, I would like to get from a file(a file that.only have one line). I did run the following command in Shell:
1) perl test.pl < input.txt
2) cat input.txt | perl test.pl

Both returned the following error:

GetConsoleMode failed, LastError=|6| at i:/site/lib/Term/ReadKey.pm line 265.

Since the readmode get the input from stdin, and I did pipe the file into stdin, why error out? Anything i did wrong?Any work around?Pls advice.

Thanks

[ahgan]

Try removing the redirective "<" when calling the command.

perl test.pl input.txt

[sebtks]

Try removing the redirective "<" when calling the command.

perl test.pl input.txt

It's working. Thanks.