$evalarg = "\$^D = \$^D | \$DB::db_stop;\ndo {$cmd}";