Select Code to Download

my $cube1 = 'pgpygr';
my $cube2 = 'rprrgy';
my $cube3 = 'ppryyg';
my $cube4 = 'rrygpy';

          +-------+
          |   g   |
...
          |  red  |
          |       |
          +-------+

#!/usr/bin/perl -w
#
...

    return $winstr;
}