ok, you've got a LOT of issues there.. I was about to avoid doing some work by rewriting & commenting this, but thought you'd be better off doing it yourself.. perl will show you what's going wrong if you start your script with these two lines..

#!/usr/bin/perl -w
use strict;
[download]

cheers,

J