#!/usr/bin/perl -w

open  (IN,  "<hostnames.txt" ) || die "Cant open users.txt";

 while(<IN>) {
  chomp;
  system("telnet  $_");  ### get return status here??
}