Select Code to Download

while ($line = $sth->fetchrow_array()) {
#Your code goes here
my $new_thread = threads->new(\&scan_domain, $line);</b>
...
            {$myport=$myport.','.$_;chomp $myport;} 
            else{$myport=$_; chomp $myport} 
        }