#!/usr/local/bin/perl -w

use lib qw(./blib);
use Net::Domain qw(hostname domainname hostdomain);

print "Domainname = ",domainname(),"\n";
print "Hostname   = ",hostname(),"\n";
print "Hostdomain = ",hostdomain(),"\n";



