perl -E'say int(rand 10) for 0..3' > dateiname.txt