1234567891011121314151617181920212223242526272829303132333435
warten();schleife();sub warten{ print "Ausgabe vor Schleife\n\n";}sub schleife{ for($i = 0; $i < 5; $i++){ print "zeile: $i (sleep(1)\n"; sleep(1);}}