diff --git a/PerlMagick/demo/Makefile b/PerlMagick/demo/Makefile
index 851dc16a3..ad14b69b3 100644
--- a/PerlMagick/demo/Makefile
+++ b/PerlMagick/demo/Makefile
@@ -13,5 +13,5 @@ all:
 	perl composite.pl
 
 clean:
-	/bin/rm -f demo.jpg button.gif model.png shadow.gif tree.gif \
-	    compose-specials.jpg  single-pixels.gif  pixel-fx.gif
+	/bin/rm -f demo.pam button.pam model.pam shadow.pam tree.pam \
+	    compose-specials.pam  single-pixels.pam  pixel-fx.pam
diff --git a/PerlMagick/demo/annotate.pl b/PerlMagick/demo/annotate.pl
index 01aea6e25..21f820d94 100644
--- a/PerlMagick/demo/annotate.pl
+++ b/PerlMagick/demo/annotate.pl
@@ -37,5 +37,5 @@
   push(@$image,$label);
 }
 $image->Set(delay=>20);
-$image->Write("annotate.miff");
+$image->Write("annotate.pam");
 $image->Animate();
diff --git a/PerlMagick/demo/button.pl b/PerlMagick/demo/button.pl
index 99b280eb3..aceb59f50 100644
--- a/PerlMagick/demo/button.pl
+++ b/PerlMagick/demo/button.pl
@@ -11,5 +11,5 @@
 $q->Raise('6x6');
 $q->Annotate(font=>'Generic.ttf',text=>'Push Me',fill=>'black',
   gravity=>'Center',pointsize=>18);
-$q->Write('button.gif');
+$q->Write('button.pam');
 $q->Write('show:');
diff --git a/PerlMagick/demo/compose-specials.pl b/PerlMagick/demo/compose-specials.pl
index 263794f66..67d68d12f 100755
--- a/PerlMagick/demo/compose-specials.pl
+++ b/PerlMagick/demo/compose-specials.pl
@@ -247,5 +247,5 @@
   frame=>'6x6+2+2',
   shadow=>'True',
 );
-$montage->Write('compose-specials.jpg');
+$montage->Write('compose-specials.pam');
 $montage->Write('show:');
diff --git a/PerlMagick/demo/composite.pl b/PerlMagick/demo/composite.pl
index 987be1154..5ecaf864b 100644
--- a/PerlMagick/demo/composite.pl
+++ b/PerlMagick/demo/composite.pl
@@ -35,5 +35,5 @@
   push(@$image,$thumbnail);
 }
 $image->Set(delay=>20);
-$image->Write("composite.miff");
+$image->Write("composite.pam");
 $image->Animate();
diff --git a/PerlMagick/demo/demo.pl b/PerlMagick/demo/demo.pl
index 125d95749..25f708330 100644
--- a/PerlMagick/demo/demo.pl
+++ b/PerlMagick/demo/demo.pl
@@ -513,6 +513,6 @@
 $montage->Composite(image=>$logo,gravity=>'North');
 
 print "Write...\n";
-$montage->Write('demo.jpg');
+$montage->Write('demo.pam');
 print "Display...\n";
 $montage->Write('show:');
diff --git a/PerlMagick/demo/dst.png b/PerlMagick/demo/dst.png
deleted file mode 100644
index 2569f632d..000000000
Binary files a/PerlMagick/demo/dst.png and /dev/null differ
diff --git a/PerlMagick/demo/piddle.pl b/PerlMagick/demo/piddle.pl
index 618212cdd..8f108ee07 100644
--- a/PerlMagick/demo/piddle.pl
+++ b/PerlMagick/demo/piddle.pl
@@ -61,6 +61,6 @@
 #
 $image->Annotate(font=>'Generic.ttf',text=>'This is a test!',
   geometry=>'+30+140',fill=>'green',pointsize=>24,rotate=>45.0);
-$image->Write('piddle.gif');
+$image->Write('piddle.pam');
 $image->Write('piddle.mvg');
 $image->Write('show:');
diff --git a/PerlMagick/demo/pixel-fx.pl b/PerlMagick/demo/pixel-fx.pl
index a1cc43add..4de2429a8 100755
--- a/PerlMagick/demo/pixel-fx.pl
+++ b/PerlMagick/demo/pixel-fx.pl
@@ -48,5 +48,5 @@
 }
 
 # display the result (or you could save it)
-$dest->Write('pixel-fx.gif');
+$dest->Write('pixel-fx.pam');
 $dest->Write('show:');
diff --git a/PerlMagick/demo/settings.pl b/PerlMagick/demo/settings.pl
index 121b438e1..f997f1c12 100755
--- a/PerlMagick/demo/settings.pl
+++ b/PerlMagick/demo/settings.pl
@@ -28,5 +28,5 @@
 $e = $im->Trim();
 die $e if $e;
 
-$e = $im->Write('settings.png');
+$e = $im->Write('settings.pam');
 die $e if $e;
diff --git a/PerlMagick/demo/shadow-text.pl b/PerlMagick/demo/shadow-text.pl
index 798533a9f..5a30dd7eb 100644
--- a/PerlMagick/demo/shadow-text.pl
+++ b/PerlMagick/demo/shadow-text.pl
@@ -11,5 +11,5 @@
 $image->Blur('0x1');
 $image->Annotate(font=>'Generic.ttf',fill=>'red',stroke=>'blue',pointsize=>60,
   text=>'Works like magick!',geometry=>'+4+86');
-$image->Write('shadow.gif');
+$image->Write('shadow.pam');
 $image->Write('show:');
diff --git a/PerlMagick/demo/shapes.pl b/PerlMagick/demo/shapes.pl
index 203a2540b..42f55e469 100644
--- a/PerlMagick/demo/shapes.pl
+++ b/PerlMagick/demo/shapes.pl
@@ -35,6 +35,6 @@
 # Write image.
 #
 print "Write image...\n";
-$image->Write('shapes.gif');
+$image->Write('shapes.pam');
 print "Display image...\n";
 $image->Write('show:');
diff --git a/PerlMagick/demo/single-pixels.pl b/PerlMagick/demo/single-pixels.pl
index 9dd09dc32..849331aaf 100755
--- a/PerlMagick/demo/single-pixels.pl
+++ b/PerlMagick/demo/single-pixels.pl
@@ -43,5 +43,5 @@
 $im->Scale('1000%');
 
 # Output the changed pixels
-$im->Write('single-pixels.gif');
+$im->Write('single-pixels.pam');
 $im->Write('show:');
diff --git a/PerlMagick/demo/src.png b/PerlMagick/demo/src.png
deleted file mode 100644
index 100dfe275..000000000
Binary files a/PerlMagick/demo/src.png and /dev/null differ
diff --git a/PerlMagick/demo/steganography.pl b/PerlMagick/demo/steganography.pl
index c764765e0..d4ebb5cfe 100644
--- a/PerlMagick/demo/steganography.pl
+++ b/PerlMagick/demo/steganography.pl
@@ -14,13 +14,13 @@
 $image=Image::Magick->new;
 $image->ReadImage('model.gif');
 $image->SteganoImage(image=>$watermark,offset=>91);
-$image->Write('model.png');
+$image->Write('model.pam');
 $image->Write('show:');
 #
 # Extract image from image.
 #
 $size="$width" . "x" . "$height" . "+91";
 $stegano=Image::Magick->new(size=>$size);
-$stegano->ReadImage('stegano:model.png');
-$stegano->Write('stegano.gif');
+$stegano->ReadImage('stegano:model.pam');
+$stegano->Write('stegano.pam');
 $stegano->Write('show:');
diff --git a/PerlMagick/demo/tree.pl b/PerlMagick/demo/tree.pl
index 57b9f8123..73501e7cf 100644
--- a/PerlMagick/demo/tree.pl
+++ b/PerlMagick/demo/tree.pl
@@ -32,4 +32,4 @@
 
 $changes = \%stemchanges;
 lsys_init(400);
-lsys_execute('A', 10, "tree.gif", %rule);
+lsys_execute('A', 10, "tree.pam", %rule);