#!/usr/binperl
use strict;
use LWP::UserAgent;
my $url = 'http://www.example.com/secret/';
my $server_and_port = $url;
$server_and_port =~ s|^http://([^/]+).*$|$1:80|;
my ($popup_msg, $username, $password) = ('Hello!', 'foo', 'bar');
my $ua = new LWP::UserAgent;
$ua->credentials($server_and_port, $popup_msg, $username => $password);
print $ua->get($url)->content();
従来のバスサービスは、道路状況によって時刻表よりも遅れたりしてい見てるだけでなんか楽しい。走っているバスがけなげに見える。でも、ふ
ました。バス停で長時間待たされたり、時間どおりに目的地に着けず、
不満を感じたことはありませんか?この実験では、そのようなバスのサー
ビスに関する不満を解消するために、ITS技術を使い、「今バスがどこ
を走っているのか」という情報を提供します。
