sub walk {
        my ($file, $prefix);

##</code><code>##

        if ("$file"=~m/.nsf$/){

##</code><code>##

        if ($file =~ m/\.nsf$/) {