Make a wordcloud out of the testimonials of Dancer users

perldancer_wordcloud.pl

#!perl

use strict;
use warnings;

use Image::WordCloud;
use File::Slurp;
use LWP::Simple;
use HTML::Grabber;

my $html;
my $uri = 'http://perldancer.org/testimonials';
my $dom = HTML::Grabber->new(html => get($uri));

my $testimonials = $dom->find('#contain');

my $gd = Image::WordCloud->new
                ->add_stop_words(qw/dancer web framework development perl perldance perldancer/)
                ->words( $testimonials->text )
                ->cloud();

write_file('dancer_cloud.png', {binmode => ':raw'}, $gd->png);