$evalarg = "\$^D = \$^D | \$DB::db_stop;\n$cmd";