It's a simple bug - you're copying the file handle rather than reading from it.

while (my $line = $FH) {
[download]

should instead be

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

The "<>" around $FH reads from the filehandle (a line at a time, in this context).