Select Code to Download

  use Net::NBName;
  my $nb = Net::NBName->new;
...
        print "$addr ".$dom->name()."$/";
    }
  }

while(my $addr=<>)
{
...
  close NMB;
  print "$addr $domain$/";
}