perl -d ... > $SIG{__WARN__} = sub { $DB::single = 1; } > c