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