Random What?

for those who know perl:

srand;
rand($.) < line =" $_)">;
print $line;

explain what this does. explain why rand will give this task a uniform distribution.