if ( ( do_I_want_debug )
 and ( not defined( $DB::VERSION ) ) # already in debug?
{
  exec('perl -d $0 @ARGV') or die $!;
}