#!/usr/bin/perl -w

use strict;
use Data::Dumper;

use OpenDirectory::Matcher::Word;





main();





sub main {
	my $url = $ARGV[0] or die("Syntax: $0 url\n");
	my $title = $ARGV[1] || "";
	
	my $objMatcher = OpenDirectory::Matcher::Word->new("../freq/all4");
	$objMatcher->noWordMax(30);

	my $objResult = $objMatcher->objMatch(-url => $url) or die("Could not match ($url)\n");

#	print Dumper($objResult);
	print Dumper($objResult->raCategoryHierarchy());
	
	return(1);
	}





#EOF