Perl flushing STDOUT
From Teknologisk videncenter
Udskriv unbuffered til <STDOUT>
my $old_fh = select(STDOUT);
$| = 1;
select($old_fh);Udskriv unbuffered til <STDOUT>
my $old_fh = select(STDOUT);
$| = 1;
select($old_fh);