#!/usr/bin/perl --

use strict;
use warnings;
my(
$VAR1, $VAR2
);


$VAR1 = {
  'email' => 'goose@gmail.com',
  'orders' => [
    {
      'downloads' => '3',
      'order' => 'wb090130',
      'item' => '0001',
      'price' => '3.98'
    },
    {
      'downloads' => '5',
      'order' => 'wb090131',
      'item' => '0003',
      'price' => '3.98'
    }
  ],
  'total' => '7.96'
};
$VAR2 = {
  'email' => 'cowboy@bebop.com'
};



use open qw' IN  :bytes OUT :bytes ';
use YAML::Tiny qw[ LoadFile DumpFile ];


use Data::Dumper;
$Data::Dumper::Indent=1;

warn DumpFile('test.yml', $VAR1, $VAR2);
print Dumper(LoadFile( 'test.yml' ));