Select Code to Download

{
   my %state;
...
   }
}

sub rec_helper {
    my %state;
...
    };
}

sub recursive {
    my( $state, $arg ) = @_;
...
    my %state;
    return recursive( \%state, $arg );
}