$SIG{__WARN__} = 'IGNORE'; warn; #$SIG{__WARN__} = sub {}; #$SIG{__WARN__} = 'DEFAULT'; #$SIG{__WARN__} = sub {die};