#!/usr/bin/perl print "警告スイッチの値 : $^W\n";

#!/usr/bin/perl -w print "警告スイッチの値 : $^W\n";