#!/usr/bin/perl
use strict;
use warnings;
use RDF::Trine;
use GraphViz;
use File::Spec;
my $model = RDF::Trine::Model->temporary_model;
foreach my $file (@ARGV) {
my $pclass = RDF::Trine::Parser->guess_parser_by_filename($file) || 'RDF::Trine::Parser::RDFXML';
my $p = $pclass->new;
open(my $fh, '<', $file) or die $!;
my $base = 'file://' . File::Spec->rel2abs($file);
$p->parse_file_into_model( $base, $fh, $model );
}
my $g = $model->as_graphviz;
print $g->as_png;