Perhaps the server is ignoring your header because it does not end with CRLFs.

use Socket qw(:crlf);

print "Content-Type: text/html$CRLF$CRLF";
[download]

may help. If not, then it must be a server configuration.

Update: code tag fixed. sorry!

-nuffin
zz zZ Z Z #!perl