sub callstack
{
    &$oldwarn if $oldwarn;
    require Carp;
    delete $SIG{__WARN__};
    goto &Carp::cluck;
    $SIG{__WARN__} = \&callstack;
}