List of Telnet-accessible Systems (1997)(lights.ca)

  $ wget http://www.lights.ca/hytelnet/oth/oth000.html
  $ mkdir x
  $ cd x

  $ wget $(grep -o '<a href=[^>]\+' ../oth000.html |\
    sed 's,<a href=,http://www.lights.ca,' |\
    grep oth)

  $ grep '^TELNET ' * | cut -d' ' -f2 | while IFS=: read -a x; do
      echo -n "${x[0]}: ";
      dig +noall +answer A ${x[0]} | sed -n '/IN\tA/s/.*IN\tA\t//p' | tr '\n' ' ';
      echo; done | tee workingdomains.txt

  $ grep '^TELNET ' * | cut -d' ' -f2 | while IFS=: read -a x; do
      grep -q "${x[0]}: [^$]" workingdomains.txt || continue; echo "${x[0]}";
      ncat -w 5 -v ${x[0]} ${x[1]:-23}; echo ---; done

    telnet milek7.pl