in reply to generate random number without using any built in function in perl?
This is a good source: http://random.mat.sbg.ac.at/