Someone

#!/usr/bin/perl
use strict;
use GNUpod::iTunesDB;
use Data::Dumper;

LoadArtworkDb(shift);

	####################################################################
	# Starts parsing the database and creates internal structure
	sub LoadArtworkDb {
		my($file) = @_;
		open(AWDB, "<", $file) or die "Unable to open $file\n";
		my $obj = { offset => 0, childs => 1, fd=>*AWDB, awdb => 1,
		               callback => { PACKAGE=>__PACKAGE__, mhii => { start => '_MhiiStart' },
		                            }
		          };
		
		GNUpod::iTunesDB::ParseiTunesDB($obj,0);
		close(AWDB);
	}
	

sub _MhiiStart {
	my($self, %args) = @_;
	print Data::Dumper::Dumper($args{ref});
}