#!/usr/bin/perl

use strict;
use warnings;
use YAML;
use Data::Dumper;

my $string = join "", <>;

my $data = Load($string);

print Dumper($data);

sub usage { print "usage: yml2pl FILE\n"; }