#!/usr/bin/perl


use LWP::UserAgent;
use HTTP::Request;
use HTTP::Response;
use URI;

sub server_info {
    my $url   = URI->new ("http://" .  $_[0]);
    my $host  = $url->host;
    my $agent = LWP::UserAgent->new;

    my $request = HTTP::Request->new ('HEAD' => $url);
       $request->header ('Host' => $host);
       $request->header ('Connection' => 'close');
       $request->header ('Timeout' => 1);
    print "[DEBUG]: query $host\n";
    my $response = $agent->request ($request);

    if ($response->is_success)
    {
        my $server_info = $response->header ('server');
    }
}

open my $out, ">", "out"
    or die "Cant open output file";

while (<>)
{
    chomp;
    my ($num, $host) = split ',';
    my $server = server_info($host);
    print "[DEBUG]: $server\n";
    if ($server =~ /nginx[\w\s]*(1.3.9|1.4.0)/)
    {
        print "$_\n";
        print $out "$_\n";
    }
}

close $out;