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