Select Code to Download

while(my $line = <$info>)  {
    foreach ($line) {
...
+a></td></tr>"
    }    
}

while (<$info>) {
    @vlinks=split /:/;
    # ...
}