diff --git a/examples/perl/multitomaton.pl b/examples/perl/multitomaton.pl
index 3f6716b3cf1d883c4df3b06a3b8ffbd88d3cee87..835f3d48d027f0a27440525d78ca5c3271f2e87d 100755
--- a/examples/perl/multitomaton.pl
+++ b/examples/perl/multitomaton.pl
@@ -22,10 +22,10 @@ $client->can_connect();
 my $red_rule = $ARGV[0];
 $red_rule = int(rand(255)) unless $red_rule;
 
-my $green_rule = $ARGV[0];
+my $green_rule = $ARGV[1];
 $green_rule = int(rand(255)) unless $green_rule;
 
-my $blue_rule = $ARGV[0];
+my $blue_rule = $ARGV[2];
 $blue_rule = int(rand(255)) unless $blue_rule;
 
 print "Running rules $red_rule (red), $green_rule (green), and $blue_rule (blue) \n";
@@ -117,4 +117,4 @@ while(1){
  	sleep 1;
 }
 
-print "Done\n";
\ No newline at end of file
+print "Done\n";