diff --git a/PerlMagick/demo/demo.pl b/PerlMagick/demo/demo.pl
index 45aa886..49a02c1 100644
--- a/PerlMagick/demo/demo.pl
+++ b/PerlMagick/demo/demo.pl
@@ -229,7 +229,7 @@
 print "Grayscale...\n";
 $example=$model->Clone();
 $example->Label('Grayscale');
-$example->Set(type=>'gray');
+$example->Set(type=>'grayscale');
 push(@$images,$example);
 
 print "Implode...\n";