09/03/09 14:18:59
こんな感じでどうだろ。
#!/usr/bin/perl
use LWP::UserAgent;
print "Content-Type: text/html\n\n";
$i = 0;
while (1) {
my $ua = LWP::UserAgent->new;
my $req = HTTP::Request->new(GET => "URLﾘﾝｸ($ENV{SERVER_NAME}:$ENV{SERVER_PORT}$ENV{SCRIPT_NAME})");
my $res = $ua->request($req);
$i = $i + 1;
print "$i,";
}