I believe that, for diffrent results on diffrent machine, you can base your random generation upon a timer.. do depending on the time of your server the random number is generated. The timer is the same once each day.. :) I've done this a lot in VB dunno how in Perl..
# VB Code in here
RANDOMIZE(Timer)
N = INT(RND * 10)