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

$!++;

print "Enter name: ";

my $key;
my $name = "";
my $count = 0;

ReadMode 4;
while ($count < 15){
    while (!defined ($key = ReadKey(-1))){
	# Waiting for key pressed
    }
    last if ($key eq "\n");
    print $key;
    $name .= $key;
    $count++;
}
ReadMode 0;

# do whatever you want with your input, for example, print it:
print "\n$name\n";