#!/usr/bin/perl -s
use Yahoo::Search;
use LWP::Simple;
# use Data::Dumper;

use strict;

my $k=shift;

our ( $c);
$c ||= 100;

my $d= int( $c / 100);
my $count=100;

mkdir("PO");

for my $cent (0..$d){
 if ($cent == $d){ $count = $c - $cent*100 }

 print "
  Start => $cent * 100,
  Count => $count,
 ";

 my @results = Yahoo::Search->Results(
   Doc => "inurl:pt.po $k language-team: portuguese",
   AppId => "YahooDemo",
   Start => $cent * 100,
   Count => $count,
 );

 warn $@ if $@;

 for my $result (@results) {
    next unless            $result->Url =~ /pt\.po$/;
    printf "Result: #%d\n", $result->I + 1,
    printf "Url:%s\n", $result->Url;
    getstore($result->Url, "PO/". ($result->I + 1). ".po");
#printf "%s\n", $result->ClickUrl;
#printf "Summary: %s\n", $result->Summary;
#printf "Title: %s\n", $result->Title;
#printf "In Cache: %s\n", $result->CacheUrl;
   print "\n";
 }
}