$SIG{__DIE__} = sub {
        if (!ref($_[0])) {
                $err = join('', @_);
        }
        print "error $err\n";
};