You didn't unbuffer STDOUT, so you are probably looping all the time and won't see it until you accumulate 8K of output. Add $|++; at the start of your script. Or use warn instead of print.

-- Randal L. Schwartz, Perl hacker