Help for this page

Select Code to Download


  1. or download this
    my $hostname = `/bin/hostname`;
  2. or download this
    my ($name, $aliases, $addrtype, $length, @addrs) = 
    gethostbyname $ENV{'HOSTNAME'};