eval { $n = int rand(20); srand $n; print $n.' ' } for (1..10)