#!/usr/bin/env perl

use strict;
use warnings;
use Sys::Hostname;
use Socket;

my($host)=gethostbyname(hostname);

my($addr)=inet_ntoa((gethostbyname(hostname))[4]);

my $name = gethostbyaddr(inet_aton($addr), AF_INET)
or die "Can't resolve $addr: $!\n";

$name=~s/($host\.)//g;
print "DSN of network in which I am now: $name\n";