#!/usr/bin/perl

use strict;
use warnings;
use 5.024;
use utf8;

use Imager;

my $img = Imager->new;
my $filename = shift;
my $angle = shift // 45;

$img->read( file => $filename ) or warn $img->errstr;
$img->rotate( degrees => $angle ) or warn $img->errstr;
$img->write( file => "ROT-" . $angle . "_" . $filename) or warn $img->errstr;