open (TERMFILE, $ARGV[0]);
my(@termusers) = <TERMFILE>;
chomp @termusers;
close TERMFILE;