Help for this page

Select Code to Download


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