Buscadores de dominios de sites via bing e gethostbyname (Perl)

O projeto seria uma atualização de um search que ja possuo, entretanto não está funcionando 100%.

Este código em particular não está retornando hosts

sub dns(){
        while($q->pending() > 0){
                $semaphore->down();
                my $url = $q->dequeue;
                $semaphore->up();
                my $ip = join(".", Unpack("C4", (gethostbyname($url))[4]));
                if (defined($ip)) {
                        print "[+] $url\t->\t$ip\n" if(length($ip) > 6 && $ip =~/^\d+\.\D+\.\D+\.\D+$/);
                        &search2("ip:$ip")  if(length($ip) > 6 && $ip =~/^\d+\.\D+\.\D+\.\d+$/);
                }
                undef $ip;
        }
}