#!/usr/bin/perl

use PDF::API2;

$pdf=PDF::API2->new;

$img=$pdf->image_gif('color.gif');

	$page = $pdf->page;
	$page->mediabox($img->width,$img->height);
	$gfx=$page->gfx;
	$gfx->image($img,0,0,1);

$pdf->saveas("$0.pdf");

$pdf->end();

exit;

__END__
