#!/usr/bin/perl

use Inline Config => FORCE_BUILD => 1,
                     CLEAN_AFTER_BUILD => 0;

use Inline C => Config => LIBS => '-L/usr/lib -lgd -ljpeg',
                          INC => '-I/usr/include',
                          AUTO_INCLUDE  => '#include "gd.h"';
use Inline C => 'DATA';

outtext();

__END__
__C__

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;
}