use strict;
use warnings;

my $prompt = q{Add input (CTRL-D to finish) : };
my $maskPrompt
   = qq{\r}
   . ( q{ } x ( length( $prompt ) + 2 ) )
   . qq{\r};
my @input = ();
print $prompt;

while( 1 )
{
    last if eof STDIN;
    push @input, scalar <STDIN>;
    print $prompt;
}
print $maskPrompt;

chomp @input;
print
   qq{Your input:\n},
   do { local $" = qq{\n  -->}; qq{  -->@input}; },
   qq{\n};