use strict;
use warnings;
use Image::Magick;

my $image=Image::Magick->new(size=>"600x50");
my $smile = Image::Magick->new();
my ($x, $winkel);
# Leeres Bild mit weißem Hintergrund
$image->Read("xc:white");

# Smily einlesen
$smile->Read('smile.gif');
$smile->Set(background=>'none');

for ($x = 0, $winkel = 0; $x < 600; $x += 50, $winkel += 30)
  {
  $image->Composite(image=>$smile, gravity=>"West",x=>$x,rotate=>$winkel);
  }
# und abspeichern
$image->Write("smilies.gif");
$image->Write("win:");