use warnings;
print($^W, "\n");  # 0  XXX