@info=<READ>;
@info=grep(!/^ +$/, @info);
[download]

should be written as

@info = grep {!/^\s+$/} map { chomp; $_ } <READ>;
[download]

You're not catching the newline in your regex. *shrugs*

------
We are the carpenters and bricklayers of the Information Age.

Don't go borrowing trouble. For programmers, this means Worry only about what you need to implement.