$SIG{__WARN__}= sub {
        print "\$var= ($var)\n";
        warn @_;
    };