#!/usr/bin/perl
use strict;
use warnings;
use utf8;
 
use GD;
use FindBin;
 
my $image = GD::Image->newFromGif("$FindBin::Bin/hansi.gif");
my $fg = $image->colorAllocate(50, 50, 50);
 
my $font = "$FindBin::Bin/aoyagireisyosimo.ttf";
$image->stringFT($fg, $font, 23, 0, 18, 45, 'ウンコードを憎んで');
$image->stringFT($fg, $font, 23, 0, 150, 75, '人を憎まず');
 
my $png_data = $image->png(9);
open my $fh, '>', "$FindBin::Bin/../public/img/shuji.png" or die;
binmode $fh;
print $fh $png_data;
close $fh;