open (FILE, "<$list") or die "$list failed: $!\n";
@srvr = <FILE>;
close (FILE);



foreach $ARGV ( @ARGV ) {


 #$exists = grep { $ARGV eq $_ } @srvr;
            if (!$exists) {
                              print "Cant do this"; #
                          exit (1);
                   }
          }