use strict; use diagnostics; use warnings; use LWP::UserAgent; use HTTP::Request; use HTTP::Response; my $def = new LWP::UserAgent; my $hostsfile; my $host; my @hosts; my $userresp; my $url; my @checks = ("http://HOST:5555/server/test.php"); my $ua = LWP::UserAgent->new(agent => "School", env_proxy => 1, keep_alive => 1,timeout => 1); print qq(Host File Name:\t); $hostsfile = ; chomp($hostsfile); open(IN, $hostsfile) or die "$!"; @hosts = ; chomp(@hosts); print qq(School A28A group B project\n); print qq(Output Saved To CGIVTI.log.\n\n); foreach $host (@hosts) { foreach (@checks) { $url = $_; $url =~ s/HOST/$host/; #$url = $_; print qq(:: Checking $url...\n); my $request = new HTTP::Request('GET', $url); my $response = $def->request($request); if ($response->is_success) { print $response->content; open(OUT, ">>CGIVTI.log"); print OUT $url; close OUT; } else { print qq(Not wOKING..\n\n); } } } <>