Select Code to Download

$file=File::Tail->new(name=>$filename, maxinterval=>5, interval=>1, ta
+il=>-1, ignore_nonexistant => 1, errmode=>\&do_exit);

...
      }  # End While # 2
     &do_term($sock);
   }  #  End While sock

package File::Tail;

...
}

1;