use Net::hostent;
    my  $h = gethost( 'www.microsoft.com' );
    #       name  aliases  addrtype  length  addr_list
    my  @aliases = @{ $h->aliases };

    printf "  Name  '%s'\n", $h->name;
    printf "  Aliases are '%s'\n", join("', '", @aliases );