Select Code to Download

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

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

sub is_serial_data_ready {
    print "is_serial_data_ready: enter\n";
...

    return scalar @serial_data;
}