ralph@erde:/tmp$ ./test.pl
erster Durchlauf: 1
erster Durchlauf: 2
erster Durchlauf: 3
erster Durchlauf: 4
erster Durchlauf: 5
erster Durchlauf: 
zweiter Durchlauf: #!/usr/bin/perl
zweiter Durchlauf: while (<DATA>){
zweiter Durchlauf:      print "erster Durchlauf: $_";
zweiter Durchlauf: }
zweiter Durchlauf: seek (DATA,0,0);
zweiter Durchlauf: while (<DATA>){
zweiter Durchlauf:      print "zweiter Durchlauf: $_";
zweiter Durchlauf: }
zweiter Durchlauf: 
zweiter Durchlauf: __DATA__
zweiter Durchlauf: 1
zweiter Durchlauf: 2
zweiter Durchlauf: 3
zweiter Durchlauf: 4
zweiter Durchlauf: 5
zweiter Durchlauf: