Definately consider a complete modules as suggested, but your problem might be buffering (this is a wild guess, I mean, really poking it with a stick ;-> ). Try:

use IO::Handle;
open PORT, ...;
PORT->autoflush;
[download]