Can I determine if a given CNAME hostname is through Perl

Question

At work, I have something like this ...

$ host www.something.com www.something.com is an alias for some.other.address some.other.address is an alias for one.more.address one.more.address has address xxx.xxx.xxx.xxx 

I would like to put www.something.com in Perl and determine if this is a CNAME, record, etc.

Answer 1

 use Net::DNS qw(); my $query = Net::DNS::Resolver->new->search('conferences.yapceurope.org'); if ($query) { foreach my $rr ($query->answer) { next unless 'CNAME' eq $rr->type; print $rr->cname; } } else { warn sprintf "query failed: %s\n", $res->errorstring; }