Select Code to Download

Before setting SIG{CHLD} its value is...<br/>
$VAR1 = undef;<br/>
...
Reading ping stream...<br/>
Reading ping stream...<br/>
DONE

Before setting SIG{CHLD} its value is...<br/>
$VAR1 = undef;<br/>
...
Reading ping stream...<br/>
Use of uninitialized value in iteration finalizer at mytest.pl line 21
+, <PING> line 1.<br/>
Unable to create sub named "" at mytest.pl line 21, <PING> line 1.</p>

use strict;
use warnings;
...
sub REAPER {
    print "I AM A SIG{CHLD} handler\n"
}

package Error::Test;

...
my $resolver = new Net::DNS::Resolver();

1;