Re^4: How to deal with a forked proces that is waiting for user input?

my $queue = new Thread::Queue;
my $command = 'diskpart';
...
        return 'TIMEOUT';
    }
}

my $queue = new Thread::Queue;
my $command = 'diskpart';
...
        return 'TIMEOUT';
    }
}

C:\Sandbox>perl ForkProcessTimeout.pl

...
 On computer: USITPAPADGD1C

 DISKPART>

C:\Sandbox>perl ForkProcessTimeout.pl

...
 On computer: USITPAPADGD1C

 DISKPART>

Select Code to Download