#!C:\\Perl\bin\perl.exe for ($s=0;$s<=100;$s++) {print "Danke\n";}