Perl - Sowas ähnliches wie flush() in PHP

[mewX]

Tach, ich habe eine Schleife, die einige Dinge tut, die Zeit brauchen und zwischendrin auch noch warten... Ich möchte nun nach jedem Schleifendurchgang bitte sofort die Ausgabe haben, und nicht erst wenn das Script abgearbeitet ist.
In PHP bekommt man das über diese Funktionien zur Ausgabesteuerung hin, gibt's sowas auch in Perl?

gruß

 

[renee]

$|++

#!/usr/bin/perl

use strict;
use warnings;

$|++;

for( 0..20 ){
    print $i . ' / ';
    sleep 1;
}

 

[mewX]

Perfekt, Danke