use Sys::Hostname;
use Socket;

my $hostname = gethostbyaddr(gethostbyname(hostname()),AF_INET);
print "$hostname\n";