Language Basics Perl

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