BEGIN
{
   $SIG{__WARN__} = $SIG{__DIE__} =
       sub {
              open ERRORLOG, ">>/myerror.log" or
                   die "error opening logfile";

              print ERRORLOG, scalar localtime, " - $0\n", @_, "\n\n";
              close ERRORLOG;
           }
}