if(  'morgon' eq $ENV{PERLDEBUG}  ) {
        delete $ENV{PERLDEBUG};
        exec( $^X, '-d', $0, @ARGV );
        die "Can't exec $^X: $!\n";
    }