#!/usr/bin/perl -w use Sys::Hostname; $host = hostname(); print "Network host name is: $host\n";