#! /usr/bin/perl
# Autofetch Info

use strict;
use warnings;
use CGI;
my $cgi = CGI->new;

my $currentSoftware = $cgi->param('id');
my $coCode = $cgi->param('country');

my $store = 143441;
my $flag = 0;
my $counter = 0;

print $cgi->header;


sub fetchReviews()
{

my $doit = qq{curl -s  -A "iTunes/4.2 (Macintosh; U; PPC Mac OS X 10.2" -H "X-Apple-Store-Front: $store-1" 'http://ax.itunes.apple.com/WebObjects/MZStore.woa/wa/viewSoftware?id=$currentSoftware'}; 


   my $riz = `$doit`;
my @rizray = split('\n', $riz);

my @rizray = grep( /<TextView topInset="0" leftInset="0" rightInset="0" styleSet="normal11"><SetFontStyle normalStyle="descriptionTextColor">/, @rizray);
   foreach my $item (@rizray)
   {

print "$item";
   }
}