Doesn't work for me. After trying your suggestions, it still stalls. I have tried placing after open:

use IO::Handle;
STDOUT->autoflush(1);
[download]

and even

select((select(STDOUT), $| = 1)[0]);
[download]

to no avail.