Pop quiz: characters or bytes? 

• Generating an image

use GD::Graph::bars;

my $graph = GD::Graph::bars->new($width, $height);
...
open my $img, '>', $chart_file;
print $img $gd->png;