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