print REALSTDERR "[$$ real-stderr starting]\n";
while ($request->Accept >= 0) {
+ my $ua = $ENV{HTTP_USER_AGENT} // '<none>';
print <<END;
Content-Type; text/plain
success
count=$count
+$ua
END
- print STDERR "[$$ stderr] serviced $count.\n";
- print REALSTDERR "[$$ real-stderr] serviced $count.\n";
+ print STDERR "[$$ stderr] serviced $count ($ua).\n";
+ print REALSTDERR "[$$ real-stderr] serviced $count ($ua).\n";
$count++;
}