Your code does not compile.

Please post code that actually compiles instead of typing it in separately.

Also, you may want to think about what the following line is supposed to do:

foreach(my $line =  <$FH>) {
[download]

... maybe you want to learn about what readline resp. the diamond operator does in scalar context. Most likely, while is a better approach.