=over
=item ${^TAINT}
X<${^taint}>
Reflects if taint mode is on or off. 1 for on (the program was run with
B<-t>), 0 for off, -1 when only taint warnings are enabled (i.e. with
B<-t> or B<-tu>).
This variable is read-only.
This variable was added in Perl v5.8.0.
=back</div><div class="naked_ctrl">
<form action="/index.cgi/speech" method="get" name="gate">
<p><a href="http://altstyle.alfasado.net">AltStyle</a> によって変換されたページ <a href="https://perldoc.perl.org/5.26.0/variables/$%7B%5ETAINT%7D.txt">(-&gt;オリジナル)</a>
/ <label>アドレス: <input type="text" name="naked_post_url" value="https://perldoc.perl.org/5.26.0/variables/$%7B%5ETAINT%7D.txt" size="22" /></label> <label>モード: <select name="naked_post_mode">
<option value="default">デフォルト</option>
<option value="speech" selected="selected">音声ブラウザ</option>
<option value="ruby">ルビ付き</option>
<option value="contrast">配色反転</option>
<option value="larger-text">文字拡大</option>
<option value="mobile">モバイル</option>
</select>
<input type="submit" value="表示" />
</p>
</form>
</div>