Changed to filter-like (stdin/stdout) behavior

bin/pl2yml

@@ -2,17 +2,9 @@
 
 use strict;
 use warnings;
-use YAML::Tiny;
+use YAML;
 
-my $file = shift @ARGV
-    or &usage;
+my $string = join "", <>;
+my $var = eval $string;
 
-do $file;
-
-my $yaml = YAML::Tiny->new;
-
-$yaml->[0] = $VAR1;
-
-print $yaml->write_string;
-
-sub usage { print "usage: pl2yml FILE\n"; }
+print Dump($var);

bin/yml2pl

@@ -2,14 +2,12 @@
 
 use strict;
 use warnings;
-use YAML::Tiny;
+use YAML;
 use Data::Dumper;
 
-my $file = shift @ARGV
-    or &usage;
+my $string = join "", <>;
 
-my $data = YAML::Tiny->read($file)
-    or die "cannot read $file: " . YAML::Tiny->errstr . "\n";
+my $data = Load($string);
 
 print Dumper($data);