sub callstack
{
    &$oldwarn if $oldwarn;
    require Carp;
    print STDERR Carp::longmess(@_);
}