content-type を text/xml に設定し、xml ファイルを取得したいのですが、cgi プログラムの応答が PL ファイルであり、ブラウザに強制的にダウンロード ダイアログが開かれます。ファイルをダウンロードして、テキストエディターで開きます。ファイルの先頭に http ヘッダーが表示されますが、これはおかしいと思います。ファイルの URL は次のとおりです。「http://23.23.123.93/watergrid/dma/j796/hydro」
if(defined($result)) {
#imitate nph- cgi for IIS
my $status = defined($ENV{'SERVER_SOFTWARE'}) && $ENV{'SERVER_SOFTWARE'}=~/IIS/ ? $ENV{SERVER_PROTOCOL} || 'HTTP/1.0' : 'Status:';
my $code = $result->code;
binmode(STDOUT);
print STDOUT "$status $code ", HTTP::Status::status_message($code),
"\015\012", $result->headers_as_string, "\015\012", $result->content;}