#!/usr/bin/perl
use strict;
use warnings;
use 5.010;

use YAML::PP;
use YAML::PP::Dumper;
use Encode;

my ($file) = @ARGV;
my $yaml;

unless ($file) {
    $yaml = do { local $/; <STDIN> };
    $yaml = decode_utf8($yaml);
}

my $ypp = YAML::PP->new(boolean => 'JSON::PP');
my $yppd = YAML::PP::Dumper->new;
my @docs = $file ? $ypp->load_file($file) : $ypp->load_string($yaml);
my $out_yaml = $yppd->dump_string(@docs);

print encode_utf8 $out_yaml;
