require Term::Screen::Win32;
use utf8;

binmode STDOUT, ":utf8";
binmode STDIN, ":utf8";

 $scr = new Term::Screen::Win32;
 unless ($scr) { die " Something's wrong \n"; }
 $scr->clrscr();
 
 my @buff;
 while ( 1 ) {	
	my $k = $scr->getch() ;
	if ( ord ( $k ) == 13 ) { # dump on Enter
		$scr->puts($_) foreach @buff;
		print $/;
		print scalar ( @buff ) ;
	}
	else { push @buff, $k } ;
 }