Select Code to Download

my $stable      = "1.8";
my $unstable    = "1.7.2";

...
                  );

print "Mirror: $mirrors[rand @mirrors]";

my @releases = (
    { name     => 'Runtime RPM',
...
                }
        }
}

my @types = ('Runtime RPM', 
             'Source RPM', 
...
             'Documentation', 
             'Source', 
             'Extras');