Works for me, along with the original gethostbyname().

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 );
[download]

Output:

  Name  'a562.cd.akamai.net'
  Aliases are 'www.microsoft.com', 'www.microsoft.com.edgesuite.net'