Select Code to Download

#!/usr/bin/perl

...
    sub { $blue = 100 + int rand 50 }
  )[ $color = ( $color + 1 ) % 3 ]();
  }