#!/usr/local/bin/perl
#
# Make simple beveled button and output to STDOUT in GIF format
#
# to embed this image in a web page, use:
# img src="imagedemo.pl"

use Image::Magick;

#print "Content-type: image/gif\n\n";
#
#$image = Image::Magick->new;
#$image->Set(size=>'30x180');
#$image->Read("gradient:#ff0000-#0000ff");
#$image->Raise('3x3');
#$image->Rotate(-90);
#$image->Write('gif:-');

exit(0);