Language Basics Perl

  1. Home
  2. Perl
  3. Language Basics
  4. Read a single character from the keyboard
use Term::ReadKey;
    print "Please enter character here: ";
    ReadMode("cbreak",STDIN);
    $Input = getc(STDIN);
    ReadMode("original",STDIN);
    print "$Input\nInput = $Input\n";