use Tk;
...

# if running with debugger, reinstall signal handler
if (defined $DB::single) {
        # avoid warning: '$DB::single' is only used once
        $DB::single = $DB::single;
        DB::afterinit();
}