Help for this page
sub walk { my ($file, $prefix);
if ("$file"=~m/.nsf$/){
if ($file =~ m/\.nsf$/) {