特殊変数$^W

警告スイッチに対応して真偽値が入ってるので、
my $hoge = delete $cnf{hoge};
のように引数をdeleteで削り取っているのに、他に余計な引数がある場合かつ、
警告がONのときに、以下が真になります。

if (%cnf && $^W) {
Carp::carp("Unrecognized LWP::UserAgent options: @{[sort keys %cnf]}");
}