sub dbout {
    my ( undef,   $filename, $line ) = caller(0);
    warn "@_ at $filename line $line\n" if DBG;
}