I receive the error: Global symbol "$line" requires explicit package name at c:perlscripts\test.pl

Adding a my to your foreach statement should fix this problem:

foreach my $line (@lines) {
[download]