my @mirrors     = (
              'http://foo.mirror.org',
              'http://www.users-domain.com/proj/foo',
              'http://osdn.dl.sf.net/sourceforge/foo',
              'http://unc.dl.sf.net/sourceforge/foo',
              'http://umn.dl.sf.net/sourceforge/foo',
              'http://heanet.dl.sf.net/sourceforge/foo',
              'http://aleron.dl.sf.net/sourceforge/foo',
);

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