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