$SIG{__WARN__} = sub {
    open(ERR, ">>error.log") or die ("Died because: $!\n");
    print ERR @_;
    close(ERR);
};