Servus,
alles klar, hab das Problem gefunden.
Bei Per gibt es wohl etwas Proleme mit dem output Buffer.
Um diesen wieder zurück zu setzen hilft dieses Script:
{
local ($oldbar) = $|;
$cfh = select (STDOUT);
$| = 1;
#
# Hier sollte Dein print Statement stehen.
#
$| = $oldbar;
select ($cfh);
}