use Log::Handler;

my $log = Log::Handler->new(
   filename => $error_log, 
   mode => 'append'
);

$SIG{__WARN__} = sub { $log->warning(@_) };
$SIG{__DIE__}  = sub { $log->error(@_); exit(1) };