Select Code to Download

{
    my ($indent, $depth) = ( "\t", 0 );
...
        return $str;
    }
}

{
    my ($indent, $depth) = ( "\t", 0 );
...
    }
}