スキューuse strict;use warnings;use Imager;use Image::Size;use Math::Trig;my $gain = 1.05;my $angle = pi / $gain;my $img = Imager->new;$img->read(file => 'test.PNG') or die $img->errstr;my ($max_width, $max_heigth) = imgsize('test.PNG');my…