$SIG{__WARN__} = sub { &fatal_error( @_ ); };
все, кранты серверу!
А если серьзно, то вышеприведенная строка означает, что вывод всех предупреждений об ошибках будет обрабатываться подпрограммой &fatal_error(); т.е. так ,как хочет того разработчик скрипта, а не делает Perl самостоятельно
довольно цивилизованный способ.
А вот так:
$SIG{__WARN__} = sub {};
Можно отключить вывод предупреждений вообще (т.е. накроется скрипт и никому об этом не скажет)