Before setting SIG{CHLD} its value is...<br/>
$VAR1 = undef;<br/>
After setting SIG{CHLD} its value is...<br/>
$VAR1 = sub { "DUMMY" };<br/>
After require statement SIG{CHLD} value is...<br/>
$VAR1 = sub { "DUMMY" };<br/>
Calling ping now...<br/>
I AM A SIG{CHLD} handler<br/>
Reading ping stream...<br/>
Reading ping stream...<br/>
Reading ping stream...<br/>
Reading ping stream...<br/>
Reading ping stream...<br/>
Reading ping stream...<br/>
DONE

##</code><code>##

Before setting SIG{CHLD} its value is...<br/>
$VAR1 = undef;<br/>
After setting SIG{CHLD} its value is...<br/>
$VAR1 = sub { "DUMMY" };<br/>
After require statement SIG{CHLD} value is...<br/>
$VAR1 = undef;<br/>
Calling ping now...<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>

##</code><code>##

use strict;
use warnings;
use Data::Dumper;
use POSIX;

print "Before setting SIG{CHLD} its value is...\n";
print Dumper($SIG{CHLD});

$SIG{CHLD}= \&REAPER;
print "After setting SIG{CHLD} its value is...\n";
print Dumper($SIG{CHLD});

require Error::Vip;
print "After require statement SIG{CHLD} value is...\n";
print Dumper($SIG{CHLD});

print "Calling ping now...\n";
my @cmd = ('ping', '-c', 1, '-n', '-A', '-W', 1, "164.55.89.62");
open (PING, '-|', @cmd) or confess("Can't ping -- $!");
while (my $ping = <PING>) {
    print "Reading ping stream...\n";
}
close PING;
print "DONE\n";

sub REAPER {
    print "I AM A SIG{CHLD} handler\n"
}

##</code><code>##

package Error::Test;

use strict;
use warnings;
use Net::DNS;

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

1;