mm_get($m,"http://www.amazon.com/s/ref=nb_sb_noss?url=search-alias%3Dpopular&field-keywords=$url_end");
$content = $m->content();
$parser = HTML::TokeParser->new(\$content);
mm_get($m,"http://www.amazon.com/s/ref=nb_sb_noss?url=search-alias%3Dpopular&field-keywords=$url_end");
$content = $m->content();
$parser = HTML::TokeParser->new(\$content);