my $pick = ( 
    (0)x3, 
    (1)x4, 
    (2)x4, 
    (3)x5, 
    (4)x6, 
    (5)x6, 
    (6)x6, 
    (7)x6 
)[ rand 40 ];

print $cgi->a({-href  =>
       "$mirrors[ $pick ]/$file-$stable.rpm",
               -title =>"$stable RPM"}, 'rpm');