#!/usr/bin/perl -l

use strict;
use warnings;
use Term::ReadKey;

while (1) {
    print "Enter something:";

    ReadMode(4);
    my $x = <STDIN>;
    print "Entering...";
    sleep 3;

    ReadMode(0);
    print "You entered: $x";
    last;
}