1#!/usr/bin/perl
2#
3# $Id: dumpyaml.pl 136 2007-12-28 09:15:46Z jakob $
4
5use warnings;
6use strict;
7use YAML qw(LoadFile Dump);
8use Data::Dumper;
9
10my $file = $ARGV[0];
11
12my ($hashref, $arrayref, $string) = LoadFile($file);
13
14print Dumper($hashref);
15