Mega Code Archive

 

Categories / Perl / Network

 

Get system host name

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