http://del.icio.us/help/json/networkからJSONを引っ張ってきて,JSON::SyckとGraphVizでマインドマップ風にして画像化。 #!/usr/bin/perl use strict; use warnings; use LWP::Simple; use JSON::Syck; use GraphViz; my $root_user = 'higeorange'; my $limit = 2; my $s = 1; my $data = &get_json($root_user); my $graph = GraphViz->new(layout => 'fdp'); &add_node($root_user, $data, $s); print $graph->as_png("network.png"); sub add_node{ my ($