koeppea@foxi:~/perl_scripts> tail -f benchmark.txt
Benchmark: timing 1000000 iterations of Mit "IO::File", Mit "open $fh" und mit "while", Mit "open $fh" und ohne "while", Mit "open FILE" und mit "while", Mit "open FILE" und ohne "while"...
Mit "IO::File": 540 wallclock secs (456.56 usr + 76.48 sys = 533.04 CPU) @ 1876.03/s (n=1000000)
Mit "open $fh" und mit "while": 128 wallclock secs (97.60 usr + 29.50 sys = 127.10 CPU) @ 7867.82/s (n=1000000)
Mit "open $fh" und ohne "while": 45 wallclock secs (33.78 usr + 11.26 sys = 45.04 CPU) @ 22202.49/s (n=1000000)
Mit "open FILE" und mit "while": 114 wallclock secs (85.77 usr + 27.13 sys = 112.90 CPU) @ 8857.40/s (n=1000000)
Mit "open FILE" und ohne "while": 34 wallclock secs (22.93 usr + 10.84 sys = 33.77 CPU) @ 29612.08/s (n=1000000)

koeppea@foxi:~/perl_scripts>