perl ./scriptname > datei.txt