#! perl -w

use strict;
use Win32::Console;

my ($Console);

$Console = new Win32::Console(STD_INPUT_HANDLE);
$Console->Alloc();
$Console->Display();
$Console->Mode(0);

$| = 1;
print "Hit any character to stop program>";

$Console->Input();

print "\nStopped program\n";
$Console->Flush();

exit(0);

##</code><code>##

#! perl -w
use Term::ReadKey;
use strict;
my ($Key);

$| = 1;
print "Hit any character to stop program>";
ReadMode 3;

for(;;) {
    $Key = ReadKey 0.1;
    if(defined($Key)) {
        last;
    }
}

ReadMode 0;
print "Stopped program\n";

exit(0);