my $are_we_done_yet = 0;
while (!$are_we_done_yet) {

    print "loop\n";

    # Check for console activity
    my $con_key = ReadKey(-1);