#!/usr/bin/perl -w

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

 while(<IN>) {
  chomp;
  system("finger$_  $_");
}