Ick wees ja nich warum man alles so kompliziert machen muss. Vielleicht waere es ja auch einfacher, einen Bittorrent Tracker aufzumachen. ;)
Trotzdem.. Hier die Perlvariante:
#!/usr/bin/perl -w
use strict;
use warnings;
# liste mit den dateien, die per zufall heruntergeladen werden...