#!/usr/local/bin/perl

use QUX::GetBloc;

my $bloc = QUX::GetBloc->new();

my $entries = $bloc->getEntry('http://www.bloc.jp/qux/');

foreach my $entry ( @{$entries} ) {
    print "------\n";
    foreach my $key ( keys %{$entry} ) {
	if ( ref($entry->{$key}) eq "ARRAY" ) {
	    foreach ( @{$entry->{$key}} ) {
		print "  $_\n";
	    }
	} else {
	    print "$key:$entry->{$key}\n";
	}
    }
}