#!/usr/bin/perl use LWP::UserAgent; my $ua = LWP::UserAgent->new; my $req = HTTP::Request->new(GET => 'http://<仮想マシンIP>/counter.php'); $req->authorization_basic('username', 'password'); for (my $i = 1; 1; $i++) { my $res = $ua->request($req); my $status = "fail"; $status = "success" if ($res->is_success()); printf "%s %06d %s\n", $status, $i ,$res->content; sleep 0.5; } exit;