I think your "uninitialized value" warning is explained in Use of uninitialized value in open second time but not first. The fix is to initialize $out when it's created.

my $out = '';
[download]

(I tried this, and it worked for me.)