use strict;
use warnings;

my $prompt     = q{Please enter your response (CTRL+D to exit): };
my $dePrompt   = qq{\r} . q{ } x ( length( $prompt ) + 2 ) . qq{\r};
my $responseCt = 0;

while( 1 )
{
    print $prompt;
    last if eof STDIN;
    $_ = <STDIN>;
    chomp;
    $responseCt ++;
    print qq{Response $responseCt, "$_"\n};
}

print $dePrompt;