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);

}

}