#!/usr/local/bin/perl

# These pathnames must be adjusted for your system
$CONVERT = '/usr/local/bin/convert';
# conversion options -- interlaced, transparent image
$CONVERTOPT = '-interlace LINE -transparency white';

$|=1;  # to prevent buffering problems
print "Content-type: image/gif\n\n";  # required header

# Something nice to print.
$my_picture = <<END;
%!PS-Adobe-2.0
%%BoundingBox: 0 0 200 200
%%EndComments
/box
  { newpath
    0 0 moveto
    0 72 rlineto
    72 0 rlineto
    0 -72 rlineto
    closepath
    2 setlinewidth stroke
    1.5 1.5 scale
    10 10 translate
  } def
box box box
showpage
END
;

&ps2gif($my_picture);

sub ps2gif {
    my($data) = @_;
    open(PS,"| $CONVERT $CONVERTOPT - gif:-");
    print PS $data;
    close PS;
}