#!/usr/bin/perl

use strict;
use warnings;
use RDF::Trine;
use RDF::Trine::Serializer;
use HTML::HTML5::Microdata::Parser;
use File::Util;
my($f) = File::Util->new();

my($html) = $f->load_file('full_md.html');

my $baseURI = 'http://schema.org/';
my $parser = HTML::HTML5::Microdata::Parser->new($html, $baseURI);
my $model  = $parser->graph; # RDF::Trine::Model
my $serializer = RDF::Trine::Serializer->new('turtle', namespaces => { so => $baseURI } );

print $serializer->serialize_model_to_string ( $model );