foreach my $line ( <STDIN> )
[download]

foreach reads from a list and then iterates over that list but you are reading from an infinite loop so you never get to the end of the list and it can't start iterating.    Change that to a while loop which reads one line at a time:

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