A script to create word clouds from perl's core documentation

perldoc-wordcloud.pl

use strict;
use warnings;
use File::Slurp;
use Image::WordCloud;
for my $file (<perl*.pod>) {
    my $text = `pod2text $file`;
    my $wc = Image::WordCloud->new();
    $wc->words($text);
    my $gd = $wc->cloud();
    $file =~ s/od$/ng/;
    open my $fh, '>', $file or die;
    print $fh $gd->png();
    close $fh;
}