Select Code to Download

#!/usr/bin/env perl

...
    }
}
__END__

String found where operator expected at /Users/karl/perl5/perlbrew/per
+ls/perl-5.24.1threads/lib/5.24.1/darwin-thread-multi-2level/IO/Socket
+/INET.pm line 303, near "croak 'usage: $sock->peerhost()'"
    (Do you need to predeclare croak?)
# ... many more like this

sub peerhost {
    @_ == 1 or croak 'usage: $sock->peerhost()';
...
    my $addr = $sock->peeraddr;
    $addr ? inet_ntoa($addr) : undef;
}

Segmentation fault: 11
Deep recursion on subroutine "IO::Socket::new" at /Users/karl/perl5/pe
+rlbrew/perls/perl-5.24.1threads/lib/5.24.1/IO/Socket/IP.pm line 353, 
+<__ANONIO__> line 2.

#!/usr/bin/env perl

...
__END__

# for i in {1..100}; do ./uagent.pl; done