ユーザーエージェント取得・表示($ENV{'HTTP_USER_AGENT'})
#! /usr/local/bin/perl # HTML出力 print "Content-type: text/html\n\n"; print "<html>\n"; print "<head>\n"; print "<title>ユーザーエージェントを表示</title>\n"; print "</head>\n"; print "<body>\n"; # ユーザーエージェント出力 print "$ENV{'HTTP_USER_AGENT'}<br>\n"; # HTML出力 print "</body>\n"; print "</html>\n"; exit;
〔 実行する 〕