The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!/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, '<:encoding(UTF-8)', $file) or die $!; <$fh> };
} else {
	local($/)	= undef;
	$data	= <>;
}

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