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

my $image = Image::Magick->new(size=>'30x110');

# Leeres Bild erzeugen, aber diesmal mit Farbverlauf
$image->Read('gradient:#66ff66-#6666ff');

# Button basten
$image->Rotate(-90);
$image->Raise('6x6');
$image->Annotate(text=>'Drueck mich',
                 font=>'Generic.ttf',fill=>'black',
                 gravity=>'Center',pointsize=>18);
$image->Write('button.gif');