#!/usr/bin/perl

BEGIN { unshift @INC, "/home/neil/perl5/lib/perl5" }

use strict;
use warnings;
use Socket qw( getaddrinfo getnameinfo );