Select Code to Download

#!/usr/bin/perl
use strict;
...
my $i=rand@c;
my $color=$c[$i];
exec("xterm -fg black -bg $color -font 6x13 -ls -sb -sl 1000 &");