Select Code to Download

use POSIX ":sys_wait_h";
while ( kill(0, $pid) ) {
...
    printf "\rProgress: %s", $time;
    my $res = waitpid($pid, WNOHANG);
    }

This is perl 5, version 20, subversion 1 (v5.20.1) built for MSWin32-x
+86-multi-thread-64int
(with 1 registered patch, see perl -V for more detail)
...

Binary build 2000 [298557] provided by ActiveState http://www.ActiveSt
+ate.com
Built Oct 15 2014 22:10:49