#!/usr/bin/perl -w


# This script will run a whois on a list of domains names

use strict;

my $domains  = '/var/tmp/clean';
my $cmd      = '/usr/local/libtpp-1.32.02.redhat6/bin/tpp -c /usr/local/libtpp-1.32.02.redhat6/bin/tpp.db -whois';
my $out      = '/var/tmp/out_put';

open(OUT, ">$out")    || die "Cant creat $out\nReason: $!\n";
open(IN, "$domains")  || die "Cant open $domains to read\nReason: $!\n";
my @domain = <IN>;
close(IN);

foreach my $line (@domain) {
  chomp $line;
  print "running whois on $line\n";
  system "$cmd $line";
}
close(OUT);
exit;