#!/usr/bin/perl

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

$Data::Dumper::Sortkeys=1;

sub info
{
        my $where=shift;
        print $where,": ",Dumper($SIG{'CHLD'}),"\n";
}

info('start');
$SIG{'CHLD'}=sub { 'oh well, just a dummy' };
info('after set handler');
require Net::DNS;
info('after require');
Net::DNS->import();
info('after import');

print "\n";

print "OS: $^O\n";

print "Versions:\n";
print "Perl $^V\n";
for my $fn (sort keys %INC) {
        my $mod=$fn;
        $mod=~s|/|::|g;
        $mod=~s|\.pm$|| or next;
        my $ver=do {
                no strict 'refs';
                defined ${"$mod\::VERSION"} ? ${"$mod\::VERSION"} : 'none'
        };
        print "$mod $ver\n";
}