Only a note: seems weird the way you open files:

open my $text, "<$textFile>" or die "Dead";
[download]

should be:

open my $text, '<', $textFile or die "Dead because: $!";
[download]

Id est the 3 args form of open. You can find more info in the docs for open.

HtH
L*