#!/usr/local/bin/perl -w

use RDF::Pool;
use Data::Dumper;

my $pool = new RDF::Pool "http://sample.com/cars#";
$pool->load($ARGV[0]);
my @objs = $pool->top_level_objects();
print "Top Level Objects:\n\n" . Dumper(@objs);