You need to unbuffer your filehandle. Here's the basic idea:

{ 
    my $ofh = select OUTPUT;
    $| = 1;
    select $ofh;
}
[download]

For more information about this, see Suffering from Buffering? by Dominus.

Cheers,
Ovid

Join the Perlmonks Setiathome Group or just click on the the link and check out our stats.