diff --git a/PerlMagick/demo/annotate.pl b/PerlMagick/demo/annotate.pl
index 21f820d94..ef7ac2eea 100644
--- a/PerlMagick/demo/annotate.pl
+++ b/PerlMagick/demo/annotate.pl
@@ -38,4 +38,4 @@
 }
 $image->Set(delay=>20);
 $image->Write("annotate.pam");
-$image->Animate();
+$image->Animate(title=>"Rotating Text");
diff --git a/PerlMagick/demo/composite.pl b/PerlMagick/demo/composite.pl
index 5ecaf864b..5571498d6 100644
--- a/PerlMagick/demo/composite.pl
+++ b/PerlMagick/demo/composite.pl
@@ -36,4 +36,4 @@
 }
 $image->Set(delay=>20);
 $image->Write("composite.pam");
-$image->Animate();
+$image->Animate(title=>"Rotating Smiles");
diff --git a/PerlMagick/demo/lsys.pl b/PerlMagick/demo/lsys.pl
index 03fb7e4dd..afd06b7ea 100644
--- a/PerlMagick/demo/lsys.pl
+++ b/PerlMagick/demo/lsys.pl
@@ -77,7 +77,7 @@ sub lsys_execute
     if ($translate{$command}) { &{$translate{$command}}(); }
   }
   $im->Write($filename);
-  $im->Write(magick=>'SHOW',title=>"LSYS");
+  $im->Write(magick=>'SHOW',title=>"L-system");
 }
 
 1;