I have run into an issue with a quick script im writing to search a file system for .nsf files. For the most part the script works. But when it find's a .nsf file and tries to print it out, it prints out the path to the file before it then the file itself. Example: C:\random.txt\A.nsf instead of C:\A.nsf Here is the code, i hope someone can help:

#!/usr/bin/perl

use strict;
use warnings;

my ($file, $prefix);

walk("C:\\");

sub walk {
        $file = shift;
        $prefix = shift;
        #($file, $prefix) = @_;   # You can also use shift. my $file =
+ shift; my $prefix = shift;
        $prefix ||= "";             # Set $prefix to "" if undefined (
+first case)
        #print "$file\n";
        if ("$file"=~m/.nsf$/){
            print "Prefix: $prefix\nFile:$file\n";     # print current
+ file.
        }
        if(-d $file) {              # is this a directory?
            chdir $file;
            opendir(DIR, ".");
            my @files = grep {$_ !~ /^\.\.?$/} readdir(DIR);  # Ignore
+ . and ..
            closedir DIR;
            walk($_, "$prefix$file\\") foreach @files;         # recur
+sive call
            chdir "..";
        }
}
[download]