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