#!/usr/bin/perl

use strict;
use warnings;
use RDF::Trine;

my $data;
if (scalar(@ARGV) and -r $ARGV[0]) {
	my $file	= shift;
	$data	= do { local($/) = undef; open(my $fh, '<:utf8', $file) or die $!; <$fh> };
} else {
	local($/)	= undef;
	$data	= <>;
}

my $iter	= RDF::Trine::Iterator->from_string( $data );
print $iter->as_string;