Select Code to Download

use POSIX       qw( WNOHANG    );
use Time::HiRes qw( time sleep );
...
   0.500,  # Poll   every 500ms
   sub { waitpid($pid, WNOHANG) != 0 },
);