view release on metacpan or  search on metacpan

images/button.gif.pl  view on Meta::CPAN

my ($r, $image, $filters, $args) = @_ ;

$image->Set(size=>'30x105');
$image->Read('gradient:#00f685-#0083f8');
$image->Rotate(-90);
$image->Raise('6x6');
$image->Annotate(text=>'Push Me',font=>'/usr/msrc/fonts/arial.ttf',fill=>'black',
  gravity=>'Center',pointsize=>18);

1 ;