Select Code to Download

use Win32::Console qw( CTRL_C_EVENT );

...
}

close($fh_from_child);

use IPC::Open3     qw( open3 );
use Win32::Console qw( CTRL_C_EVENT );
...

close($fh_from_child);
waitpid($pid, 0);