You have some typos:

You have a missing ")" on the following line:

while ($in[$count] !~ /q/i {
[download]

It should be

while ($in[$count] !~ /q/i) {
[download]

Second:

chomp($in[$count]";
[download]

should be:

chomp($in[$count]);
[download]

Third:

print "\n\n\n"done.\n\n\n";
[download]

should be:

print "\n\n\ndone.\n\n\n";
[download]

And finally:

count++;
[download]

should be:

$count++;
[download]

Furthermore, you will loop endlessly on:

while ($in[$count] !~ /q/i) {
[download]

because nothing in @in has been set.

update: You would have saved a lot of time by "use warnings;". It would have pointed out all the errors :)

davidj