diff --git a/PerlMagick/demo/annotate_words.pl b/PerlMagick/demo/annotate_words.pl
index 3b76b1d1bc..23d89d0010 100755
--- a/PerlMagick/demo/annotate_words.pl
+++ b/PerlMagick/demo/annotate_words.pl
@@ -66,6 +66,3 @@
 }
 
 $image->Write("show:");
-
-exit;
-
diff --git a/PerlMagick/demo/button.pl b/PerlMagick/demo/button.pl
index a771e0128d..5abeacdd5f 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('show:');
 $q->Write('button.gif');
-$q->Write('win:');
diff --git a/PerlMagick/demo/compose-specials.pl b/PerlMagick/demo/compose-specials.pl
index de5482398c..87db9bce17 100755
--- a/PerlMagick/demo/compose-specials.pl
+++ b/PerlMagick/demo/compose-specials.pl
@@ -249,4 +249,3 @@
 );
 $montage->Write('show:');
 $montage->Write('compose-specials.jpg');
-
diff --git a/PerlMagick/demo/demo.pl b/PerlMagick/demo/demo.pl
index 80abde8098..105a776732 100644
--- a/PerlMagick/demo/demo.pl
+++ b/PerlMagick/demo/demo.pl
@@ -512,8 +512,7 @@
 $logo->Zoom('40%');
 $montage->Composite(image=>$logo,gravity=>'North');
 
+print "Display...\n";
+$montage->Write('show:');
 print "Write...\n";
-$montage->Set(matte=>'false');
 $montage->Write('demo.jpg');
-print "Display...\n";
-$montage->Write('win:');
diff --git a/PerlMagick/demo/lsys.pl b/PerlMagick/demo/lsys.pl
index cc1194e578..7d554292ec 100644
--- a/PerlMagick/demo/lsys.pl
+++ b/PerlMagick/demo/lsys.pl
@@ -76,8 +76,8 @@ sub lsys_execute
   {
     if ($translate{$command}) { &{$translate{$command}}(); }
   }
+  $im->Write('show:');
   $im->Write($filename);
-  $im->Write('win:');
 }
 
 1;
diff --git a/PerlMagick/demo/piddle.pl b/PerlMagick/demo/piddle.pl
index 1e8d12542f..ff6c8fb1ea 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('show:');
 $image->Write('piddle.gif');
 $image->Write('piddle.mvg');
-$image->Write('win:');
diff --git a/PerlMagick/demo/pixel-fx.pl b/PerlMagick/demo/pixel-fx.pl
index 7970aad201..656c13f128 100755
--- a/PerlMagick/demo/pixel-fx.pl
+++ b/PerlMagick/demo/pixel-fx.pl
@@ -48,6 +48,5 @@
 }
 
 # display the result (or you could save it)
-$dest->Write('win:');
+$dest->Write('show:');
 $dest->Write('pixel-fx.gif');
-
diff --git a/PerlMagick/demo/shadow-text.pl b/PerlMagick/demo/shadow-text.pl
index f04f3a1a33..0573a70c55 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('show:');
 $image->Write('shadow.gif');
-$image->Write('win:');
diff --git a/PerlMagick/demo/shapes.pl b/PerlMagick/demo/shapes.pl
index 4d97d84b72..1ebc108646 100644
--- a/PerlMagick/demo/shapes.pl
+++ b/PerlMagick/demo/shapes.pl
@@ -34,7 +34,7 @@
 #
 # Write image.
 #
+print "Display image...\n";
+$image->Write('show:');
 print "Write image...\n";
 $image->Write('shapes.gif');
-print "Display image...\n";
-$image->Write('win:');
diff --git a/PerlMagick/demo/single-pixels.pl b/PerlMagick/demo/single-pixels.pl
index e364c0faec..7669a6fef5 100755
--- a/PerlMagick/demo/single-pixels.pl
+++ b/PerlMagick/demo/single-pixels.pl
@@ -43,6 +43,5 @@
 $im->Scale('1000%');
 
 # Output the changed pixels
-$im->Write('win:');
+$im->Write('show:');
 $im->Write('single-pixels.gif');
-
diff --git a/PerlMagick/demo/steganography.pl b/PerlMagick/demo/steganography.pl
index def3e06c8d..fa974a5880 100644
--- a/PerlMagick/demo/steganography.pl
+++ b/PerlMagick/demo/steganography.pl
@@ -22,5 +22,5 @@
 $size="$width" . "x" . "$height" . "+91";
 $stegano=Image::Magick->new(size=>$size);
 $stegano->ReadImage('stegano:model.png');
+$stegano->Write('show:');
 $stegano->Write('stegano.gif');
-$stegano->Write('win:');