#! /usr/bin/perl

use strict;
use warnings;

print "Test ";
$| = 1;
for (0..1000) { print "Bearbeite Nr. $_\r"}