#!/usr/bin/perl -w
use LWP::Simple;
use HTML::TokeParser;
my $page= get('$url') or die("$!");#thats the webpage
my $stream= new HTML::TokeParser(\$page);
$file = "bestsellers.xml"; #the file,if exists I delete it
unlink($file);
open(f1, ">>bestsellers.xml") or die("Can't open .rss file: $!");
print f1 "<?xml version='1.0' encoding='ISO-8859-1'?>\n";
print f1 "<rss version='0.91'>\n";
print f1 "<best>";
print f1 "<title>The title</title>\n";
print f1 "<link>$url</link>\n";
while(my $tag = $stream->get_tag("table")) 
{
if ($tag->[1]{name} and $tag->[1]{name} eq "product") 
	{ 
#do the stuff for scrapping what i need and 
#writing it into f1
	}
}
print f1 "</best>\n";
print f1 "</rss>\n";
close f1;