#!/usr/bin/perl

use LWP::Simple;
use Parallel::ForkManager;
use strict;

$|=1;

my @urls = qw(
   http://sulfericacid.perlmonk.org
   http://sulfericacid.com
);

my $number_of_forks = scalar @urls;
my $forkmanager = Parallel::ForkManager->new( $number_of_forks );

foreach my $site ( @urls ) {
   $forkmanager->start and next;
   my $altavista_results = &altavista_search( $site );
   print "Searched http://www.altavista.com for site $site\n";
   print "results: $altavista_results\n";
   $forkmanager->finish;
}

$forkmanager->wait_all_children;


#######################
# Altavista!
#######################

sub altavista_search {
   my $url = shift;
   my $engine_link = 
      "http://www.altavista.com/web/results?q=link:$url&kl=XX&search=Search";

   my $content = get("$engine_link");
   my @lines = split /\n/, $content;
   
   my $results;
   
   foreach my $line (@lines) {
      $results = $1 if $line =~ m/AltaVista found (.*) results/; 
   }
   return $results;
}