diff --git a/examples/cookbook/pdl.pl b/examples/cookbook/pdl.pl
index 362363e1..fd1c0727 100644
--- a/examples/cookbook/pdl.pl
+++ b/examples/cookbook/pdl.pl
@@ -69,7 +69,7 @@ sub update {
 
     SDL::Video::lock_surface($surface);
 
-    $piddle ( :, 0 : rand(400), 0 : rand(200) ) .=
+    $piddle ( :, rand(400) : rand(400), rand(200) : rand(200) ) .=
       pdl( rand(225), rand(225), rand(255), 255 );
 
     #