Select Code to Download

Bareword "WNOHANG" not allowed while "strict subs" in use

#!/usr/bin/perl

...
        close(WRITE);
        print "Child closed write\n";
}