Help for this page

Select Code to Download


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