#! 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);