#!/usr/local/bin/perl

use Inline C => DATA =>
           LIBS => '-lgd';
outtext();

__END__
__C__

#include "gd.h"

int outtext()
{ gdImagePtr im;
  FILE *out;
  im = gdImageCreate(100,100);
  out = fopen("foo.jpg", "wb");
  gdImageJpeg(im, out,-1);
  fclose(out);
  gdImageDestroy(im);
  return 1;
}