#!/usr/bin/perl
#
use strict;
#
my (@Llist, $uniq, $url, $cmd);
#
open (DATA1, $ARGV[0]) or die "Can't open datafile: $ARGV[0]\n";
chomp (@Llist =
close DATA1;
foreach $uniq (@Llist){
$url = "http://www\." . $uniq;
$cmd = `wget --spider --no-cookies -t 1 -T 10 $url 2>&1`;
if ($cmd =~ /200\ OK/) {
print $uniq, "\n";
}
}