use Imager;

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

die "Nur 90, 180 und 270 als Rotation im Unhrzeigersinn" 
	if ($angle !~ /^(90|270|180)$/); 

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