#!/usr/bin/perl -w
use strict;
use Net::DAAP::DMAP qw(dmap_to_xml dmap_unpack dmap_flatten);

use Getopt::Std;
use Data::Dumper; 

my %opts;
getopts('fx', \%opts);

my $tags_hash;
my $tags_array;

foreach my $f (@ARGV) {
  open my $fh, "<:bytes", $f or die "$0: Can't open $f for reading: $!\n";
  local $/;
  my $data = <$fh>;
  close $fh;

  my $aref = dmap_unpack($data);

  if ($opts{f}) {
      print Dumper(dmap_flatten($aref));
  } elsif ($opts{x}) {
      print dmap_to_xml($data);
  } else {
      print Dumper($aref);
  }
}