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

ReadMode 4;
my $key;
while( !defined ($key = ReadKey(-1)) ) {
    print qq(Test\n);
    sleep(1);
}
print qq(Exit With Key $key\n);

__END__

From cmd.exe prompt:

C:\usr\local\share\PassThru\perl\perlmonks>perl 1212444.pl
Test
Test
Exit With Key a

C:\usr\local\share\PassThru\perl\perlmonks>perl -v

This is perl 5, version 26, subversion 0 (v5.26.0) built for MSWin32-x64-multi-thread