Try to binmode() all filehandles that are being used; i.e., $fh, STDIN, STDOUT.
And remember that you need to call binmode() before you do any I/O. So, stick

binmode STDIN;
binmode STDOUT;
[download]

somewhere at the beginning of your program and see what happens.

--perlplexer