1#!/usr/bin/perl 2# 3# Make simple beveled button. 4# 5use Image::Magick; 6 7$q=Image::Magick->new; 8$q->Set(size=>'30x106'); 9$q->Read('gradient:#00f685-#0083f8'); 10$q->Rotate(-90); 11$q->Raise('6x6'); 12$q->Annotate(text=>'Push Me',font=>'Generic.ttf',fill=>'black', 13 gravity=>'Center',pointsize=>18); 14$q->Write('button.gif'); 15$q->Write('win:'); 16